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Vorwort 



Dieses Buch vermittelt Ihnen theoretische und praktische 
Kenntnisse fiir die Anwendung des Home-Computers 
COLOUR-GENIE. Sowohl die gro3e Vielfalt der Einsatzge- 
biete eines solchen Rechners als auch die Fiille von BASIC- 
Anweisungen und Syntax-Regeln kann besonders bei Anf an- 
gern leicht zu einer gewissen Hilflosigkeit fiihren. 

Damit dies nicht geschieht, sollten Sie Ihren Rechner von 
Anfang an schrittweise beherrschen lernen. In diesem Sinne 
ist das Buch aufgebaut. Das beim Erwerb des Colour-Genie 
mitgelieferte BASIC-Handbuch mit dem Titel „COLOUR 
BASIC — leicht gemacht" soil Ihnen parallel dazu als Nach- 
schlageverzeichnis und Erganzung dienen. 



An dieser Stelle danken wir der Firma Trommeschlager 
Computer GmbH, St. Augustin, fiir die Unterstiitzung und 
freundliche Zusammenarbeit. 



Kapitel x. 

Uber den Rechner 



Wie viele Rechner in seiner Preisklasse verfugt das Colour-Genie iiber 
eine Reihe von Eigenschaften, die es als geradezu ideal fiir den Einstieg 
in das Computerhobby ausweisen. Eine ansprechende Tastatur, grafische 
und farbige Darstellungsmoglichkeiten, Tonerzeugung so wie ein umfas- 
sender Befehlsvorrat stellen nahezu optimale Ausgangsvoraussetzungen 
dafvir dar, die Programmiersprache BASIC zu erlernen, ohne gleich an 
die Grenzen dieses Rechners zu stoBen. Auf diese Weise ist fiir nahezu 
jede potentielle Anwendung eine Basis geschaffen. 

Bevor wir im einzelnen auf solche Rechnerkomponenten wie Prozessor, 
Speicher-ICs und Tongeneratorbaustein eingehen, soUen Sie einen gro- 
ben Uberblick daruber erhalten, welche Merkmale das Colour- Genie als 
solches kennzeichnen. 

Das Colour-Genie gehort zur Famihe der Z80-Rechner. Diese Bezeich- 
nung ist auf den Prozessortyp zuriickzufuhren. Der Prozessor ist das 
Kernstuck eines jeden Rechners. Es handelt sich um einen IC-Baustein, 
der in der Lage ist, mit hoher Geschwindigkeit Befehle, z. B. Rechenope- 
rationen, auszufuhren. Ein Prozessor ist das Steuerelement fiir jede Akti- 
vitat, die ein Rechner ausfiihrt. Aus diesem Grunde nennt man den Pro- 
zessor auch haufig die „Zentraleinheit" oder verwendet dafiir den engli- 
schen Ausdruck CPU. Die Zentraleinheit des Colour-Genie tragt die 
Bezeichnung Z80-CPU. 

Ein weiteres Merkmal des Colour-Genie ist der BASIC-Interpreter der 
Firma Microsoft. Ein Interpreter ist ein Programm, das u. a. in der Lage 
ist, iiber die Tastatur eingegebene Anweisungen zu analysieren und diese 
an den Prozessor als Folge von codierten Anweisungen, die Maschinen- 
spracheinstruktionen, weiterzugeben. Die gesamte Arbeit des Mikropro- 
zessors Z80 wird nur iiber solche Maschinenbefehle gesteuert. Hierzu 
zahlen Befehle wie beispielsweise: 

Lade den Wert 4 in den Akkumulator (Rechenwerk) 
Addiere eine Zahl zum Akkumulator 
Verzweige zu einer vorgegebenen Speicheradresse 
Fiihre einen Vergleich durch 



LD 


A,4 


ADD 


A,4 


JP 


4000H 


CP 


B 
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Zur Steuerung des Rechners sind also Maschinenbefehle erforderlich. 
Sofem fiir eine durchzufiihrende Arbeit mehrere Maschinenbefehle hin- 
tereinander vom Rechner ausgefiihrt werden miissen, spricht man von 
einer Maschinenroutine. , 

Der B ASIC-Interpreter besteht aus einer Vielzahl solcher Maschinenrou- 
tinen. Eine elemental wichtige Routine ist die Monitor- und Bootroutine. 
Die erste Aufgabe dieses Interpretersegments besteht darin, den Rechner 
nach dem Einschalten in MiUisekunden von „0 auf 100" zu bringen. In die- 
ser Phase werden die erforderlichen Startwerte fiir die Tastatureingabe 
sowie fur die Bildschirmausgabe gesetzt. i 

Nachdem diese Startwerte gesetzt sind, steht der Interpreter bereit zur 
KontroUe der verschiedenen Bildschirm- und Tastaturoperationen. Je 
nach Art der iiber die Tastatur eingegebenen Anweisungen werden danrr 
andere Maschinenroutinen vom Prozessor abgearbeitet: Routinen fiir die 
Verarbeitung der Eingabe, Arithmetikroutinen, Ausgaberoutinen etc. 

Jeder Interpreter stellt also ein kompUziertes Gebilde von Maschinenrou- 
tinen dar, die die Fahigkeiten eines Rechners ausmachen. Der B ASIC- 
Interpreter der Firma Microsoft ist mittlerweile auf derart viele Z80- 
Rechnersy Sterne angepaBt, da6 man von einem Microsoft-Standard 
spricht. Microsoft-Standard hei6t aber auch: Lauffahigkeit von BASIC- 
Programmen anderer Rechner auf dem Colour-Genie und umge^ehrt. 

Ein individuelles Merkmal des Colour-Genie ist sein Speicheraufbau. 
Hierin unterscheidet er sich erheblich von ansonsten ahnhch aufgebauten 
Rechnern. Neben dem Speicher, der den Interpreter beinhaltet, und dem 
Arbeitsspeicher, in dem B ASIC-Programme abgelegt und ausgefiihrt 
werden, stehen zwei separate Bildwiederholspeicher zur Verfiigung: In 
dem einen werden vom Rechner alle Zeichen abgelegt, die sich gegenwar- 
tig auf dem Bildschirm befinden. Der andere kann, vollkommen getrennt 
vom ersten, Zeichnungen aus bunten Linien und Kurven erfassen. Zwi- 
schen beiden Bildschirmebenen kann hin- und hergeschaltet werden. 

Ein weiterer Speicher steht fiir die Erstellung und den Abruf eigener 
Buchstaben und Symbole zur Verfiigung. 

Auf all diese Eigenschaften wird in den Folgekapiteln eingegangen. 






KapitelZ^ 

Grafik 
auf dem Colour-Genie 



2.1. DIE BEIDEN BILDSCHIRMD ARSTELLUNGEN 

Kapitel 1 konnten Sie entnehmen, da6 der in Ihrem Colour-Genie zur 
Verfiigung stehende Speicher auf verschiedene Arten genutzt wird. 

Neben dem Programmspeicher gibt es einen Speicherbereich fiir die Bild- 
wiedergabe von Texten und einen fiir hochauflosende Grafik. Diese Spei- 
cher bereiche sind im Rechner sorgfaltig vom ubrigen Teil getrennt, ihre 
Inhalte kollidieren nicht miteinander. Man nennt sie Bildwiederholspei- 
cher. Die einzige Aufgabe solcher Bildwiederholspeicher ist es, alle Zei- 
chen, die auf dem Bildschirm ausgegeben werden sollen, zu erfassen. 

Zwischen den beiden Bildwiederholspeichern des Colour- Genies konnen 
Sie hin- und herschalten: 




Abb. 2.1: Bildschirmumschaltung 
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Wenn Sie dieses Programm starten, wird die Bildschirmseite, auf der sich 
der Text befindet, einfach abgeschaltet. Die Umschaltung ubernimmt 
hier die Anweisung FGR in Program mzeile 40. Aus diesem Grund nennt 
man die Grafikseite auch FGR-Bildschirmseite. FGR steht hier als 
Abkiirzung fiir „full graphics", d. h. „Vollgrafik". 

Der FGR-Bildschirm bleibt so lange eingeschaltet, bis der Rechner eine 
Anweisung zum Umschalten auf die Textseite vorfindet. Die Anweisung 
zum Umschalten auf den Textbildschirm steht in Programmzeile 60 und 
lautet LGR. Aus diesem Grunde nennt man die Textbildschirmseite auch 
LGR-Bildschirmseite. I 

Neben diesen beiden Anweisungen wurde eine weitere Moglichkeit 
geschaffen, direkt von der Tastatur aus diese Umschahung vorzunehmen. 
Um die Grafikseite einzuschaUen, warden die Tasten <CTRL> und 
<MOD SEL> gleichzeitig betatigt. Das Zuriickschahen erfolgt iiber die 
Taste <BREAK>. 

Jeder Bildwiederholspeicher ist ftir ganz bestimmte Anwendungen vorge- 
sehen: 

Der LGR-Bildschirm zeigt Zahlen, Buchstaben, frei definierte Zeichen 
und die Blockgrafikzeichen, die auf der Tastatur zu sehen sind. Auf dem 
FGR-Bildschirm steht Ihnen ein Punkteraster zur Verfugung, mit dem 
Sie pro Zeile 160 und pro Spalte 102 Bildpunkte darstellen konnen. Jeden 
dieser Bildpunkte konnen Sie iiber entsprechende Anweisungen einzeln 
ansprechen. 

Leider laBt sich der Inhalt von beiden Bildwiederholspeichem nicht 
mischen. Auf dem Grafikbildschirm konnen keine Buchstaben, Ziffern, 
Grafik- und Sonderzeichen dargestellt werden. Hierftir benotigen Sie den 
LGR-Bildschirm. 

Dies ist fiir Einsteiger haufig ein wenig verwirrend, Daher sind die einzel- 
nen Unterschiede im folgenden noch einmal tabellarisch zusammenge- 
fa6t: I 





LGR- 


FGR- 




Bildschirm Bildschirm 


Anzahl der moglichen Farben 


16 


4 


Anzahl der frei definierbaren Zeichen 


128 


keine 


Sind Bildpunkte einzeln ansteuerbar? 


nein 


ja 


Kann man Linien und Kreise zeichnen? 


nein 


ia 


Konnen Flachen farbig ausgem alt werden? 


nein 


ja 


Kann Text dargestellt werden? 


ja 


nein 


Konnen Grafikzeichen dargestellt werden? 


J a 


nem 
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2.2. FARBIGE DARSTELLUNG IM TEXTBILDSCfflRM 

Wie Sie der vorigen Tabelle entnehmen konnen, verfiigt das Colour- 
Genie iiber 16 mogliche Farben auf dem LGR-Bildschirm. Zum Anwah- 
len einer bestimmten Farbe dient die COLOUR-Anweisung. Alle Zei- 
chen, die nach einer COLOUR-Anweisung auf dem Bildschirm ausgege- 
ben werden, erscheinen in der gewalilten Farbe: 



^m ^g FOR x=T to i6 


■^^^ 


■ 3§ COLOUR X 




^^H 


■ 4e PRIHT-DIES 1ST DIE FARBE 


■iX 


■ 


■ 5e HEXT X 






■ READY 




^H 




>RDH 




^|: 




DIES 1ST DIE FARBE t 






■ 




DIES 1ST OIE FrtRBE 2 






■ 




DIES 1ST DIE FftRSE 3 






■ 




DIES 1ST DIE FARBE * 






■ 




DIES 1ST DIE FARBE 5 






■ 




OI£S rST OIE FARBE 6 






■ 




DIES 1ST DIE FA88E 7 






■ 




DIES rST DIE FARBE 8 






■ 




E)IES iST DIE FARBE 9 






■ 




G--;. lut Di^ Frtiiat- iH 


, 




■ 




DIES IST DIE FARBE 11 


. 




■ 


H DIES 1ST DIE FARBE \Z 






■ 


■ DIES 1ST DIE FARBE J 




^^M 


H DIES 1ST DIE FAR8E 4 




^^m 


H BIES EST DIE FftRBE 5 




^^m 


^B DIES 1ST DIE FARBE 16 




^^H 


^m READY 




^^H 




fc^ >» 




^^fl 








1^^^^^^ 


■ 



Abb. 2.2: Farbauswahl 



Wenn Sie mit Programmen arbeiten, bei denen die Farbe auf dem Bild- 
schirm von Bedeutung ist, soUten Sie zuvor kurz dieses Programm einge- 
ben, um Ihren Farbfemseher so einzustellen, da6 sich ein sauberes Farb- 
und Buchstabenmuster auf dem Bildschirm ergibt. Dies ist ziemlich miih- 
sam, da die Bandbreite des Modulators, der sich in Ihrem Colour-Genie 
befindet und der das Fernsehbild erzeugt, sehr klein ist, und somit die 
Einstellung ein wenig Fingerspitzengefiihl erfordert. 



Haben Sie den LGR-Bildschirm justiert, konnen Sie sich gleich einmal 
alle Zeichen darauf ausgeben lassen, die das Colour-Genie kennt: 
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^^^^^^H 


|H[ 


^BH 




■ 


^M 29 FOR X=33 


TO 255 




1 


■ 30 PRIHT-ZEICHEH HR 


. ''jX,cHR$<x) ^m 


■ ^9 HEXT 








■ READY 








■ ' >RUH 










ZEICHEH 


HR.^ 


33 


^1 




ZEICHEH 


HR. ■- 


3^ 


■ 


■ 




ZEICHEH 


Hit. 


35 


t 


■ 




ZEICHEH 


m. 


36 


« 


■ 




ZEICHEH 


HR. '- 


37 


z 


■ 




ZEICHEH 


HR. = 


38 


t 


■ 




ZEICHEH 


HR.^ 


39 


• 


■ 




ZEICHEH 


HR. : 


4t 


( 


■ 




ZEICHEH 


HR. = 


f1 


) 


■ 




ZEICHEH 


R. = 


^a 


t 


■ 




ZEICHEH 


R. = 


^3 


* 


■ 




ZEICHEH 


R. = 


^t 


f 


■ 


H ZEICHEH 


R. ■■ 


15 




■ 


■ ZEICHEH 


R. = 


Ifi 




■ ZEICHEH 


R. = 


17 


^1 


H ZEICHEH 


R. = 


18 


V 




1 ZEICHEH 


R. ■■ 


19 


1 j 


1 




I^I^^HHi 


MH 


^HH 




■ 



Abb. 2.3: Der Standardzeichensatz des Colour-Genies 




Abb. 2.4: Zufallsfarben 
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r le CHAR 2 

I 28 T=8 PRIKTg^88, = 

38 X=X+t 

48 IF X=t? THEH X=t 

58 COLOUR X 

68 PRIHTCHR$C238 ), ' V 

78 T-T+l 

88 IF T=28 THEH 28 

98 GOTO 58 

REftDY 

>RUH 


1 

LI 




L . 



Abb. 2.5: Lauflicht 

1 
Diese Zeichen sind auch in Ihrem B ASIC-Handbuch auf den Seiten 123 
und 147zufinden. , 

Einen interessanten optischen Effekt erzielen Sie, indem Sie einen 
bestimmten Text immer an der gleichen Bildschirmstelle in standig wech- 

selnden Farben ausgeben lassen : 

1 ^ 

Auch der „Lauflichteffekt", wie man ihn aus Diskotheken kennt, laBt sich 
auf dem Bildschirm nachvollziehen: , 

Neben der Moglichkeit, Farben iiber die COLOUR- An weisung anzu- 
wahlen, kann dies auch direkt iiber die Tastatur geschehen. Dazu betati- 
gen Sie die <CTRL>-Taste zusammen mit einer der Tasten <1> bis 
<8>. Die Farbe, die der betatigten Taste entspricht, ist auf der Tastatur 
vermerkt. Alle Folgezeichen werden vom Rechner in der gewahlten 
Farbe ausgegeben. i 



2.2.1 Die Blockgrankzeichen auf der Tastatur 

Neben den „normalen" Zeichen einer Schreibmaschinentastatur verfiigt 
das Colour-Genie iiber Blockgrafikzeichen, die durch Betatigung der 
<MOD SEL>-Taste angesprochen werden konnen. Die <MOD SEL>- 
Taste dient hierbei als Schalter zwischen den „normalen" und den Grafik- 
zeichen: \ 
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PRINT "a b (tippen Sie hier <MOD SEL>) a b (tippen Sie hier <MOD 
SEL>) a b" I 

Durch die eingebauten Grafikzeichen wird es moglich, im LGR-Bild- 
schirm Grafik und Text miteinander zu mischen. Sie konnen z. B. den 
gesamten Bildschirm umrahmen: 



10 


CLS 


2iB 


F*-CHR»(230> 


30 


FOR X-39 TO 940 STEP 40 


4B 


PRINT«X,F«t 1PRINTF«| 


50 


NEXT X 


6Q 


FOR X=a TO 39 


70 


PRINTaX,F*i 


80 


PRINT«920+X,F*; 


9B 


NEXT X 


100 


PRINTa410,"DER RAHMEN"| 


110 


GOTO U0 



Abb. 2.6: Beispielprogramm fur Blockgrafik 




Abb. 2. 7: Bildschirmausgabe ~ ein Rahmen in Blockgrafik 
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Jedes Blockgrafikzeichen besitzt iibrigens einen ganz individuellen sog. 
ASCII-Code, den Sic auf Seite 147 Ihres Handbuches nachlesen konnen. 
Statt der Tastenkombination <MOD SEL> <a>, die das Grafikzeichen 
• auf dem Biidschirm darstellt, kann auch der entsprechende ASCII- 
Code des gewiinschten Grafikzeichens eingegeben warden. Dies 
geschieht in Programmzeile 20 dutch die Zuweisung F$ = CHR$ (230). 

In den Blockgrafikzeichen unterscheidet sich das Colour-Genie erheblich 
von ansonsten ahnlich aufgebauten Rechnern wie dem Video Genie und 
dem TRS 80. 

Blockgrafikzeichen konnen Sie auf zwei Arten ansprechen: 

1. Uber die Tastatur in Verbindung mit der <MOD SEL>-Taste 

2. Mit Hilfe der CHR$-Funktion, indem Sie aus der ASCII-Codetabelle 
die Nummer des gewiinschten Zeichens angeben. 

Beide Varianten haben ihre Vor- und Nachteile. Mit der ersten Variante 
sollten Sie dann arbeiten, wenn Sie mit vielen Blockgrafikzeichen auf ein- 
mal arbeiten und diese schon beim Auflisten des Programms einen Ein- 
druck daruber vermitteln sollen, wie die spatere Grafik aussieht. 

Die zweite Variante ist dann empfehlenswert, wenn Programmhstings auf 
dem Drucker erstellt werden sollen. Matrixdrucker verfiigen in der Kegel 
uber einen anderen Zeichensatz als das Colour-Genie, so da6 auf dem 
Drucker ausgegebene Blockgrafikzeichen anders aussehen als die auf 
dem Biidschirm. Fazit: 



Es hat vom Programmablauf her dieselbe Wirkung, ob Sie 

PRINT"*" 

Oder 

PRINT CHR$(230) 

eingeben. Soil das Programm jedoch auf einem Drucker gelistet werden, 
ist die letzte Variante zu empfehlen. 

Wenn Sie die Blockgrafikzeichen direkt tiber die Tastatur eingeben, wer- 
den Sie feststellen, daB diese auf der Tastatur oft ganz anders wirken als 
auf dem Biidschirm. 

Einzelne Grafiksymbole scheinen sich kaum voneinander zu unterschei- 
den und passen auch irgendwie nicht zusammen. Sie sollten daher Grafik- 
zeichen in Typengruppen einteilen. Am einfachsten erstellen Sie sich eine 
Tabelle, in der Sie alle Grafikzeichen in Gruppen klassifizieren: 
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1. Symbole (Wiirfel, Herz, Pik, Kreuz, Karo) 

2. Linienmuster (dick, diinn, einfach, zweifach, waagerecht, senkrecht, 
schrag) 

3. Blocke (gestrichelt, gepunktet, etc.) 

4. Kreise 

5. Sonstige 

Wenn Sie sich eine solche Liste anfertigen, konnen Sie genau sehen, wel- 
che Grafikzeichen zueinander passen und welche nicht. Dies erleichtert 
Ihnen erheblich die Arbeit, wenn es wie im nachsten Kapitel darum geht, 
groGere Figuren, Zeichnungen oder Skizzen zu erstellen. Das Ganze kon- 
nen Sie experi men tell auf dem Bildschirm nachvollziehen, indem Sie 
bestimmte Symbole hinter- und untereinander setzen. 

Blockgrafikzeichen konnen nicht nur nebeneinander, sondern auch 
untereinander gesetzt werden. Um mehrere Blockgrafikzeichen unter- 
einander zu setzen, d. h. um das folgende Zeichen eine Zeile tiefer zu set- 
zen, diirfen Sie nicht die < RETURN > -Taste betatigen, denn das wird 
vom Rechner als Aufforderung aufgefaBt, einen (wie der Rechner glaubt) 
Befehi auszufuhren. Das Ergebnis ware ein „Syntax Errr". 

Um dies zu vermeiden, sollten Sie jedesmal, wenn Sie in eine neue Zeile 
gehen wollen, den <Pfeil nach unten> verwenden. 

Der Aufwand fiir eine derartige Tabelle ist recht miihsam. Er ermoglicht 
es jedoch, sich ein Bild dariiber zu machen, was auf dem LGR-Bildschirm 
grafisch darstellbar ist und was nicht. Sie konnen dann spater mit erheb- 
lich weniger Zeitaufwand Figuren und grafische Skizzen erstellen. Im fol- 
genden Abschnitt werden wir einige Beispiele hierfiir sehen. 



2.2.2 Zeichnungen aus Blockgrafikzeichen 

Schon im vorigen Abschnitt ist Ihnen sicherlich bei dem Versuch, Figuren 
oder einf ach eine groBere Anordnung von grafischen Symbolen auf dem 
Bildschirm darzustellen, auf gef alien, da6 das Erstellen von Zeichnungen 
mit Schwierigkeiten verbunden und bestimmten Beschrankungen unter- 
worfen ist. Grund fiir diese Beschrankungen ist in erster Linie das Arger- 
nis, daB Sie nicht iiber die Pfeiltasten den Cursor an jede behebige Bild- 
schirmstelle positionieren konnen. So ist es weder mit der Cursor-Taste 
<Pfeil hoch> noch mit einer < Shift >-Kombination moglich, von einer 
bestimmten Biidschirmzeile in die nachsthohere zu gelangen. Das hat zur 
Foige, daB z. B. Korrekturen am bereits bestehenden Teil einer Zeich- 
nung nicht durchgefiihrt werden konnen. Es gibt keine Taste auf der 
Tastatur, die das Steuerzeichen mit dem ASCII- Code 27 hefert, das den 
Cursor eine Zeile hoher positioniert. Dazu mu6 ein Programm geschrie- 
ben werden, das den Pfeiltasten neue Bedeutungen zuweist: 
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lis CLS 

20 COLOUR 1 

30 PRINT CHRS(i4) | 

40 Y*= I NKEY* : I FY*= " " THEN40 

50 IFY*=CHR* ( 13) THENY*=CHR* (29) +CHR* <26> 

60 IFY*"CHR* (91 ) THENY*-CHR* (27> 

70 I F Y*=CHR* (10) THENYS-CHR* ( 26 J 

80 IFY*»CHR»(9)THENY*-CHR*(25) 

90 I FY*-CHR# ( 8 ) THENY*-CHR« ( 24 ) 

100 PRINTY*; t GOTO40 



Abb. 2.8: Cursorsteuerung per Programm 



Dieses Programm loscht zuerst den Bildschirm. Dann erscheint in der lin- 
ken oberen Bildschirmecke ein blinkender Cursor. Sie konnen nun uber 
die Pfeiltasten auf der Tastatur den Cursor an eine von Ihnen gewahlte 
Bildschirmposition bringen und so den Bildschirm beliebig mit Zeichen 
fiillen. Wenn Sie z. B. den Linkspfeil betatigen, wird nicht mehr wie bis- 
her das zuletzt eingegebene Zeichen geloscht, sondern nur der Cursor 
eine Position nach links gesetzt. 

Man nennt solche ASCII-Zeichen, durch die kein Zeichen auf dem Bild- 
schirm ausgegeben, sondern nur die Position des Cursors geandert oder 
Teile des Bildschirms geloscht werden, Bildschirmsteuerzeichen. Eine 
Liste dieser Bildschirmsteuerzeichen und ihrer Bedeutungen finden Sie 
auf Seite 145 Ihres BASIC-Handbuchs. Welche zusatzhchen Anwen- 
dungsmoglichkeiten Bildschirmsteuerzeichen bieten, wird spater im 
Kapitel 2.4 eingehend erlautert. 

Durch diese Cursor-Steuerungsroutine sind Sie also in der Lage, einen 
kompletten Bildschirm in beliebiger Reihenfolge mit Zeichen zu fuUen. 
Wenn die <MOD SEL> -Taste betatigt wird, konnen dies naturhch auch 
Blockgrafikzeichen sein. Die hier aufgefiihrte Routine ist ein haufiger 
Bestandteil von Textverarbeitungsprogrammen. 

Sie konnen nun Skizzen, Grafiken oder andere Zeichnungen erstellen. 
Ein Beispiel finden Sie am Ende dieses Abschnitts. 

In der Regel wollen Sie sicherUch eine einmal erstellte Skizze oder Zeich- 
nung weiterverarbeiten konnen. Dazu mufi die Moglichkeit geschaffen 
werden, alles, was sich auf dem Bildschirm befindet, irgendwie abzuspei- 
chern. Um dies zu bewerksteUigen, machen wir uns spezielle Anweisun- 
gen des Microsoft-B ASICs zunutze: 
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Im BASIC des Colour- Genie gibt es eine Funktion VARPTR. Diese 
Funktion liefert uns zu jeder gewiinschten Variablen eines sich im Spei- 
cher befindenden Programms einen Hinweis, wo sich die zu dieser Varia- 
blen gehdrenden Daten befinden. 

Haben wir z. B. gesagt: 

A$="HASE" 

so erhielt der Rechner die Anweisung, der Variablen A$ einen Wert 
zuzuweisen, namlich die Zeichenfolge „HASE". Diese Zeichenfolge 
wurde vom Rechner an einer bestimmten Stelle im Speicher abgelegt. Die 
Ablageadresse und weitere Hinweise, die die Variable A$ betreffen, 
„merkt" sich der Rechner. 

Durch Eingabe von 

C=VARPTR{A$) 

kann man sich diese Informationen ausgeben lassen. So liefert diese 
Anweisung zunachst einmal einen Hinweis, daB in Speicherstelle C die 
Lange von A$ steht (in diesem Falle eine 4) . 

In den Speichersteellen C+ 1 und C+2 steht dann ein Hinweis, wo wir die 
Zeichenkette A$ im Speicher finden konnen. Wir nutzen die Informatio- 
nen, die wir durch VARPTR erhalten. Wir konnen dann spater jeden 
beliebigen Bildschirminhalt als Zeichenkette an irgendwelche Pro- 
grammvariablen iibergeben. Zunachst ein Beispiel, wie VARPTR 
genutzt werden kann: 



IB A*=" " 

2B AD^VARPTRtA*) 

30 AB«PEEK ( AD+ 1 ) +256»PEEK ( ftD+2 > 

4B IF AB>32767 THEN AB=AB-63536 

50 POKE AB,ASC("B") 



Abb. 2.9: Die Verwendung von VARPTR 

Wenn Sie dieses Programm starten und anschliefiend 

LIST 

eingeben, werden Sie feststellen, daB sich Programmzeile 10 verandert 
hat, da die Variable A$ nun den Wert "B" besitzt. 

Mit Hilfe der VARPTR- Funktion wurde in Zeile 30 die Speicheradresse 
ermittelt, wo der Rechner A$ = " " im Speicher abgelegt hatte. Diese 
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Wertzuweisung wurde verandert, indem direkt in die ermittelte Speicher- 
adresse durch die Anweisung in Zeile 50 ein anderer Wert, namlich "B" 
eingetragen wurde. 

2.2.3 Ein Grafikeditor 

Um einen ganzen Bildschirminhalt in Variablen zu erfassen, sind 
1000 Bytes notwendig, da der LGR-Bildschirm eine Auflosung von 
25 Zeilen mit je 40 Zeichen besitzt. Diese 1000 Bytes konnen bequem in 
5 Zeichenkettenvariablen a 200 Bytes erfaBt warden. 

Fur alle 1000 Zeichen, die aus dem Bildschirm ausgelesen werden sollen, 
mu6 von vornherein im Programm Platz geschaffen werden. Dies 
geschieht derart, daB den 5 Zeichenkettenvariablen jeweils 200 Zeichen 
zugewiesen werden, z. B. durch die Zuweisung: 

3l c^ ? IC 3l E ^ ) l f ] lc A ilc )l c i tc dIc 3k! A i i c 3 (f lic A 'jfc^ A '3l c i lc ]fc lic A i lc iJ c jf it A l i e H f ^^^^^^ 

Ob Sie diese Zeichenketten nun mit Leerzeichen oder mit anderen 
ASCII-Zeichen fiillen, ist irrelevant. Nach dem Auslesevorgang sind die 
alten Werte auf jeden Fall mit neuen uberschrieben. 

Die Vorteile, die Ihnen ein solcher Grafikeditor bietet, liegen klar auf der 
Hand: Nach dem Auslesevorgang verfiigen Sie uber fiinf Variablen, die 
eine komplette LGR-Bildschirmseite beinhalten, und dies gleich als Pro- 
grammzeilen. Wenn Sie alle Programmzeilen auBer 7, 9, 11, 13 und 15 lo- 
schen, konnen Sie diesen Bildschirm separat weiterverarbeiten. 

Zur Ausgabe eines Bildschirms werden dann nur zwei weitere Programm- 
zeilen benotigt: 

17Z$(5)=LEFT$(Z${5),199):FORX-1T0 5:PRINTZ$(X);:NEXTX 
18 GOTO 18 

Es folgt nun ein Programm, mit dem Sie auf dem Bildschirm beliebige gra- 
fische Entwiirfe machen konnen. Ubemehmen Sie bitte zunachst dieses 
Programm in Ihren Rechner. 



1 CLEAR 1SB0 

2 CLSjPRINT"PROQRAMM zum erstellen einer 
GRAFIKSEITE AUF DEM BILOSCHIRK. DIESE WIRD D 
URCH BETAETIGUNG VON 

<F1> DIREKT IN DEN VARIABLEN Z*(l) ... Z*(S) 
GESPEICHERT. 



Abb. 2.10: Grafikeditor 
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<F2> BEENDET DEN PRQQRftMMLAUF . 

3 INPUT"BITTE <RETURN>" ; AA# 

4 DIM Z«(5) 

5 FL=0 

6 REH JEDES Z«(X) MUSS GENAU 20B ZEICHEN LANG 
SEIN. UEBERPRUEFUNG JEMEILS IN DER FOLGEZEIL 
E. IN DEN EINZELNEN Z*(X) STEHT NACH BETAETI 
GUNG DER <Fl>-TASTE DER KDMPLETTE BILDSCHIR 
MINHALT. 

7 Z* ( 1 } =" ************************************* 
******************************************** 
******************************************** 
******************************************** 
*******************************'• 

8 P=LEN(Z*(n > ! IF P<>2aa THENPRINT"Z*(1) 1ST u 
NZULAESSIG LANBt "( P; "ZEICHEN" 1 FL-1 

9 Z* ( 2 J " " •»*•••»»•***»••»•♦*«»»»♦»»»•*♦»#*»»•♦ 
**************************■*#**************** 
»*********************************»**#****** 
******************************************** 
*******************************" 

10 P=LEN<2*(2> > 1 IFPO200 THENPR1NT"Z# (2) 1ST UN 
ZULAE8SIG LANGt " j P) "ZEICHEN" i FL=l 

11 It iZ>^" ************************************* 
******************************************** 
*it*»*******»******************************** 
******************************************** 
*******************************" 

12 P=LEN<Z*(3>)iIF P<>2aOTHENPRINT"Z*<3> 1ST UN 
ZULAESSIG LANG t ";P; "ZEICHEN LANG"jFL-1 

13 Zt { A) ="************************************* 
******************************************** 
******************************************** 
******************************************** 
*******************************" 

14 P-LEN(Z*(4)>iIFP<>2BBTHENPRINT"Z*<4> ISTUN2 
ULAESS I Q LANG : " ; P t " ZE I CHEN " i FL>- 1 

15 Z* ( 5 > a" »•»»»•*•»••»»»*♦••••••»•*•*»»••••••»» 

•»********«* *«■«#«'#*««■ 'H-#»*'lf'#'ll'«-«"ll'************'»'N' 
«»##»»*»*»»*»»■>•■»»-»»•»*»»»»»»*♦»»»**»#»»»»#*» 
******************************************** 
************»******************" 

16 P=LEN(Z»C3) } ! IFP<>2a0THENPRINT"Z*t5) ISTUN2 
ULAESS IB LANG s " i P; "ZEICHEN" iFL=l 

17 IF FL-1 THENPRINT"KORREKTUR NOTWENDIG"i STOP 
IB REM HIER BEGINNT DIE TASTATURABFRAGEROUTINE 
19 CLS:PRINTCHR*(14) ; 

2a Y*-INKEY»[ IFY*=""THEN20ELSEA=ASC(Y*> 

21 IF PEEK (-2840) =16THEN3a! *<F1> ?? 

22 IF PEEK(-2a4B>=32 THEN 41i'<F2>?? 

23 IF (ft=13) PRINTCHR* (29) ; CHRS t26) ; i GOTQ20t DIE 
< RETURN >-TASTE WIRD UMDEFINIERT 

24 IF<A=9ULETA=27j PFEIL HOCH WIRD UMDEFINIERT 

25 IF (A>=32) PRINTCHR* (A) ; j GOTO20 

26 IF A>=24 THEN 2B 



Abb. 2.10: Grafikeditor (Fortsetzung) 
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27 A=-A+16i 'ALLE TASTEN, DEREN ASCII-WERT <24 IS 

T, WERDEN UMDEFINIERT 
2B PRINTCHR*(A) ; tGOT02B 

29 REM HIER BEGINNT DIE BILDSCHIRMAUSLESEROUTIN 
E 

30 FOR X=0 TO 4 

31 G=VARPTR(Z*(X+1) ) 

32 IF X=0THEN G=G+7 

33 Al=PEEK<B+l)+256»PEEKtG+2) s AB ADRESSE Al LI 
EGT DER TEXTSPEICHER FUER DIE VARIABLE Z*<X+ 
1) 

34 BS- 1 7408+ X« 200 
:sa FDR T=0 TO 199 

36 POKE A1+T,PEEK<BS+T) 

37 Tl-PEEKtBS+T) !PDKEBS+T,246>P0KEBS-^T,T1[ 'BLIN 
KENDER PUNKT AUF DEM BILDSCHIRM 

38 NEXT T 

39 NEXT X 

40 GOTO 19 

41 Z*(5)=-LEFT*<Z*(5) ,199) J 'WENN NIGHT DAS LET2T 
E ZEICHEN DES LETZTEN STRINGS UM 1 SEKUERZT 
WIRD, SCROLLT DER BILDSCHIRM 

42 CLS : PR I NT : PR I NT " B I LDSCH IRM ABGESPE I CHERT . 

JEWEILS 5 BILDSCHIRMZEILEN MIT JE 40 
ZEICHEN BIND UEBER DIE VARIABLEN 

43 PRINT" 

Z*(l) => ZEILE 1 BIS 5 
Z*(2) => ZEILE 6 BIS 10 
Z*t3) => ZEILE 11 BIS 15 
Z*C4> -> ZEILE 16 BIS 20 
Z*(5) => ZEILE 21 BIS 25 

44 PRINT" 

ABGESPEICHERT UND KOENNEN DURCH EIN6ABE 
VON 

F0RX=1T05{PRINTZ*(X) ; tNEXTX 

JEDERZEIT AUFGERUFEN WERDEN. 

45 PRINT"<RETURN> ZUM ANZEIQEN DES ABBESPEICHER 
TEN BILDES" 

TO 5 



46 


INPUTAA* 


47 


CLS ! FOR X=l 


48 


PRINTZ*(X) ; 


49 


NEXT X 


50 


G0T050 



Abb. 2.10: Grafikeditor (Fortsetzung) 



Anmerkungen zum Programm: 

1 . Eine komplette Bildschirmseite steht Ihnen wie ein Zeichenbrett zur 
Erstellung eines Bildes zur Verfiigung. 

2. Wenn die Zeichnung erstellt ist und die Funktionstaste <F1> betatigt 
wurde, wird uber eine spezielle Routine des Programms jedes einzelne 
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Zeichen auf dem Bildschirm ausgelesen und in einer der zur Verfu- 
gung stehenden Zeichenkettenvariablen gespeichert. Dieser Vorgang 
nimmt etwas Zeit in Anspruch. Ein kleiner blinkender Fleck zeigt 
Ihnen jedoch immer das zuletzt ausgelesene Zeiclien auf dem Bild- 
schirm an. 

3. Nach einmaligem Auslesen kann an der Zeichnung weitergearbeitet 
werden. Zu diesem Zeitpunkt haben jedoch die Variablen Z$(l) bis 
Z$(5) bereits den ganzen Bildschirminhalt gespeichert, der sich zum 
Zeitpunkt des letzten Auslesens auf dem LGR-Schirm befand. 

4. 1st die Zeichnung fertig, konnen Sie durch Betatigung der Taste <F2> 
weitere Hinweise abrufen. Der Inhalt der Variablen Z$(l) bis Z$(5) 
wird anschheBend auf dem Bildschirm dargestellt. 

AUe Zeichen, die sich zum Zeitpunkt der Betatigung der Funktionstaste 
<F1> auf dem Bildschirm befanden, sind nun in der Zeichenkettenvaria- 
blen Z$(l) bis Z$(5) von Programmzeile 7 bis Programmzeile 15 unter- 
gebracht. Sie konnen sich durch Eingabe von 

LIST 

anschauen, ob das Programm ordnungsgemaB ablief: 




Abb. 2.11: Teil der Programmliste nach Programmende 
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Abb. 2.12: Einleitungstext zum Grafikeditor 




Abb. 2.13: Eine mit dem Grafikeditor erstellte Skizze 
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Nachdem Sie das Programm eingetippt und mit RUN gestartet haben^ 
erscheint auf dem Bildschirm der in Abb. 2.12 dargestellte Text. 

Wenn Sie nun die <RETURN>-Taste betatigen, wlrd der Bildschirm 
geloscht. Links oben erscheint ein bUnkender Cursor und zeigt die 
momentane Eingabeposition. Sobald Sie Ihr Bild erstellt haben, betati- 
gen Sie die Funktionstaste <F1> zum AbschluB. In Abb. 2.13 finden Sie 
das Beispiel einer mit dem Grafikeditor erstellten Skizze. 

Nun konnen Sie, wenn Sie woUen, den Grafikeditor loschen, indem Sie 
nur die Zeilen stehenlassen, in denen sich die Variablen Z$(l) bis Z$(5) 
befinden: 

DELETE 16-50: DELETE 1 -6: DELETE 8: DELETE 10: DELETE 12: 
DELETE 14 

Wenn Sie wollen, konnen Sie nun das Bild, das sich in den Programmzei- 
len 7 bis 15 befindet, mit dem Befehl 

SAVE"(Bildname)" 
auf Diskette oder mit 

CSAVE"(Bildname)" 
auf Kassette speichern. 



2.2.4 Das Arbeiten mit frei definierbaren Zeichen 

Eine weitere Form der Darstellung von Zeichen auf dem LGR-Bild- 
schirm sind die frei programmierbaren Zeichen. Im Rechnerspeicher 
Ihres Colour-Genie wurde eigens ein Speicherbereich fur die Erfassung 
dieser Zeichen reserviert. Hier konnen bis zu 128 solcher Zeichen abge- 
legt werden. 

Da nach dem Einschalten des Computers noch keine Zeichen program- 
miert sind, gibt der Rechner beim Abruf eines solchen Zeichens ein Leer- 
zeichen aus. Lassen Sie uns versuchen, das erste der frei programmierba- 
ren Zeichen abzurufen: 

CHAR 1 :PRINT CHR${1 28) 

Mit der CHAR-Anweisung schaltet der Rechner auf einen anderen Zei- 
chensatz um, den Zeichensatz 1. Durch diese Umschaltung werden die 
frei programmierbaren Zeichen zur Ausgabe auf den Bildschirm freigege- 
ben. 

Das erste Zeichen der ersten Gruppe frei programmierbarer Zeichen 
tragt die ASCII-Codenummer 128. Falls Ihnen der CHAR-Befehl nicht 
vertraut sein sollte, lesen Sie bitte unter Kap. 3.3 im BASIC-Handbuch 
Einzelheiten darixber nach. 
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Da wir zu diesem Zeitpunkt noch kein frei programmierbares Zeichen 
definiert haben, wird statt dessen ein Leerzeichen ausgegeben. Das erste 
der frei programmierbaren Zeichen belegt also in der ASCII-Tabelle die 
Codenummer 128. 

Wir woUen nun den Buchstaben X neu entwerfen und als Zeichen mit der 
Nummer 128 ablegen. Schon oben wurde erwahnt, daB es sich bei dem 
Zeichen mit dieser Codenummer um das erste der frei programmierbaren 
Zeichen handeit. Aus diesem Grunde liegen die Speicheradressen, die fur 
dieses Zeichen zustandig sind, ganz am Anfang des Speicherbereichs, der 
im Rechnerspeicher fiir die frei programmierbaren Zeichen reserviert 
wurde. Im Speicherbelegungsplan auf Seite 124 Ihres Handbuchs steht 
genau, welche Adresse dieser Speicher belegt: 

F400 bis F7FF 

Das entspricht dezimal den Adressen —3072 bis —2049. Und so sieht der 
Speicher fur das erste Zeichen anfangs aus: 



Adresse Adresse 



hex 
F400 
F401 
F402 
F403 
F404 
F405 
F406 
F407 



dez 
-3072 
-3071 
-3070 
-3069 
-3068 
-3067 
-3066 
-3065 



xl28 x64 x32 xl6 x8 x4 x2 



xl Sum 











Rechts neben der Tabelle unter dem Eintrag „Sum" stehen die Speicher- 
inhalte (in diesem Fall NuUen) . Mit 

PRINT PEEK(-3072) 

konnen wir dies leicht uberprufen. 

Nun beginnen wir, auf dem quadratischen Feld das Zeichen X einzutra- 
gen und jeweils die Zeilensumme rechts zu vermerken: 



Adresse 


; Adresse 




















hex 


dez 


xl28 


x64 


x32 


xl6 


x8 


x4 


x2 


xl 


Sum 


F400 


-3072 


O 


• 


• 


• 


• 


. 


• 


o 


129 


F401 


-3071 




O 


■ 


• 


• 


. 


O 




66 


F402 


-3070 




• 


O 


• 


• 


O 


- 




36 


F403 


-3069 




• 


■ 


O 


O 


• 


• 




24 


F404 


-3068 




• 


• 


o 


o 


»■ 


• 




24 


F405 


-3067 




* 


o 


. 


. 


o 


. 




36 


F406 


-3066 




o 


• 


• 


- 


. 


o 




66 


F407 


-3065 


O 


• 


• 


. 


. 


. 


■ 


o 


129 
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Das Programmieren geschieht nun, indem die rechts ermittelten Sum- 
menwerte nacheinander in den Speicher fiir die frei programmierbaren 
Zeichen eingetragen werden: 

POKE -3072,129 
POKE -3071 ,66 
POKE -3070,36 
POKE -3069,24 
POKE -3068,24 
POKE -3067,36 
POKE -3066,66 
POKE -3065,129 

Wenn Sie nun 

PRINT CHR$(1 28) 

aufrufen, erscheint ein frei definiertes X auf dem Bildschirm. 

Dieses Verfahren ist recht miihsam, da Sie, um alle 128 Zeichen zu defi- 
nieren, alle 1024 Adressen des frei programmierbaren Zeichenspeichers 
mit Werten versehen mussen. 

In Abb. 2.17 finden Sie daher ein sogenanntes Hilfsprogramm, das Ihnen 
diese Arbeit erleichtert. Dieses Programm liest aus DATA-Zeilen, die 
vor dieses Hilfprogramm gesetzt werden und jeweils die Daten fiir einen 
kompletten Zeichensatz enthalten, die Werte ein, die in den program- 
mierbaren Zeichenspeicher geladen werden sollen. Zusatzlich wird das 
programmierte Zeichen im GroBformat auf dem Bildschirm dargestellt. 
Wie so etwas im Ablauf aussieht, sehen Sie in den Abbildungen 2, 14 und 
2.15. 

Wir haben fiir dieses Programm mehrere komplette Zeichensatze zur 
Verfiigung gestellt. Diese finden Sie in Form von DATA-Zeilen im 
Anhang C. Die Zeilennummer, die vor der DATA-Anweisung steht, 
entspricht dem ASCII-Code des jeweiligen Zeichens. Jeder Zeichensatz 
beginnt mit Programmzeile 33, wo ein neues ! definiert wird. 

Sobald alle Zeichendefiniert sind, konnen Sie sich die Zeichen wahlweise 
im neuen oder im Standard-Zeichensatz ausgeben lassen (siehe 
Abb. 2.16). 

Nun erfolgen Bildschirmausgaben im selbstdefinierten Zeichensatz. 
Wenn Sie dies nicht mehr wiinschen, entfemen Sie Programmzeile 50 
durch 

50 <RETURN> 

Alle Folgezeichen werden dann im Standardzeichensatz ausgegeben. 
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Abb. 2.14: Ein neues $-Zeichen wird definiert 





^^^^^^^^^1 


HI 




HI 




^■^^^^^^H 


■ 


^V BUCHS7ABE -■ 
^B ASCII-CODE -■ 


— 


> X 

-> 


37 




^^ 


1 

















H 




.. • • 


• 


. ^ 


- - 


• 


IM 


I 




.. • • 


• 




• 


• . 


116 


1 




.. • • 


• 


• 


- . 


. . 


128 


1 






• 


• 


• 


• 


30 


1 




.- .. • 


- - 


• 


. • 


• 


. . t6 


1 




• 




• 


• 


• 


78 

. . 


1 




1 8 1 ff t 16 


tzs 


36 


) ^6 


78 


H 




[ DATEH IK SPEICHER 

L DIES 1ST DAS HEUE ZEICHEH = 

1 BITTE <RETURH> 

fc ? p 


— >% J 






I^IHHHiii^Bil 


HH 




HMI 






■ 



Abb. 2.15: Ein neues Prozentzeichen wird definiert 
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Abb. 2.16: Wiedergabe eines beliebigen Zeichens 



59999 



60000 
60010 

60020 

60030 
60040 
60050 
60060 
60070 
60080 
60090 
60100 
60110 
60120 
60130 
60140 



IN DIESEM PROBRAMM WERDEN 94 FREIDEFINIERBA 
RE ZEICHEN ALS DITMUSTER DEFINIERT UND IN DE 
N RECHNERSPEICHER 6ELADEN.FUER DIESEN TREIBE 
R STEHEN MEHRERE ZEICHENSAETZE ZUR VERFUESUN 
6. 

CLEAR 5000: PLATZ SCHAFFEN 

DEFINT M,Bi *FUER BERECHNUNGEN ALS INTEGER ND 
TWENDIG 

DIM M(7, 7) ! DIESES FELD NIMMT DIE PUNKTE EIN 
ES ZEICHENS AUF 

DIM HW(7) : "WELCHE BITS tSEBETZT 
DIM MW(7):'DATA WERTE 
ST-&HF400: ' ABLAGEADRESSE 
FOR AN=0 TO 93 

CLSsPRINT"BUCHSTABE i > " f CHR* (33+AN) 

PR I NT "ASCI I -CODE ! > " f 33+AN 

PRINT 

FOR MX=0 TO 7: 'ALLE 8 BYTES 

READ ZX 

HW(MX>-Z% 

FDR MBo0 TO 7 a ALLE 8 BITS EINES BYTES 

MM=2CMBiMW(MB)-(Z% AND MM) : IF MW<MB)<>0 THEN 

MW(MB)>1 



Abb. 2. 1 7: Mit diesem Hilfsprogramm (in Verbindung mit einem der verfugbaren Zei- 
chensiitze aus Anhang C) wird ein ganzer Satz freiprogrammierbarer Zei- 
chen in den Rechnerspeicher geladen 
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60150 M(MX,7-MB)=MW(t1B> i ' IM FELD EINTRAQEN 

60160 NEXT MB 

60170 NEXT MX 

60180 FOR V-a ID 7! DARSTELLEN 

60190 FOR X=B TO 7 

60200 IF M(X,Y)-B THEN PRINT".. " ; ELSEPR I NT " 

60210 TX«2C(7-X>iWW=WW+TX»M<X,Y) 

60220 NEXT X 

60230 PRINTUSING"#tttt";WVJ 

60235 PRINT 

60240 POKE ST,WM> ' IM SPEICHER FUER FREI DEFINIERBA 

RE ZEICHEN ABLESEN 
60250 ST=ST-4-l:WU=e 
60260 NEXTY 
60270 FORX=0TO7 
602B0 PRINTUSING"##« ";HW(X); 
60290 NEXTX 
60300 PRINT!PRINTjPRINT"DATEN IM SPEICHER. 

DIES 1ST DAS NEUE ZEICHEN : > " j CHR* < 1 28+A 

N) 
60310 PRINT"BITTE < RETURN >" 
60320 INPUT"" I A» 
60330 NEXT AN 



Abb. 2.17: Mit diesem Hilfsprogramm (in Verbindung miteinem der verfilgbaren Zei- 
chensdtze aus Anhang C) wird ein ganzer Satz freiprogrammierbarer Zei- 
chen in den Rechnerspeicher geladen (Fortsetzung) 

Diesem Listing miissen Sie einen der in Anhang C aufgefiihrten Zeichen- 
satze vorausstellen. 



2.3 FARBIGE DARSTELLUNG AUF DEM GRAFIKBILDSCfflRM 

Schon auf den vorangegangenen Seiten wurde als wesentlicher Unter- 
schied zwischen Textbildschirm und Grafikbildschirm herausgestellt, da6 
in der FGR-Bildschirmebene jeder Bildpunkt einzeln angesprochen wer- 
den kann. Hierbei stehen Ihnen 160 Bildpunkte pro Zeile und 102 pro 
Spalte zur Verfugung. Bevor Sie nun Bildpunkte darstellen konnen, miis- 
sen Sie sich 2 Farben wahlen: 

1. die Hintergrundfarbe; 

2. die Farbe, in der Sie zeiclinen wollen. 

Die vier Ihnen insgesamt zur Verfugung stehenden Farben sind: 

Farbnummer 1: schwarz 
Farbnummer 2: biau 
Farbnummer 3: orange 
Farbnummer 4: grun 
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Wir wollen nun einen blauen Hintergrund definieren, auf dem wir einen 
Punkt in Orange zeichnen: 




Abb. 2.18: Definition von V order- und Hintergrundfarbe 



Es kann nun durchaus moglich sein, da6 dieser Punkt auf Ihrem Farbfern- 
seher in einer anderen Farbe oder etwas verschwommen erscheint. Sie 
soUten dann das folgende Programm eingeben. Es erzeugt ein 4-farbiges 
Testbild auf dem Bildschirm, mit dessen Hilfe Sie den UHF-Kanal Ihres 
Farbfernsehers nachjustieren konnen. 

Eine entsprechende Bildschirmausgabe dieses Programms finden Sie in 
Abb. 2.20. 



2.3.1 Zeichnen von Punkten, Linien und Kreisen 

Zum Zeichnen von Punkten und Linien dient, wie Sie schon im vorheri- 
gen Kapitel erfahren haben, die PLOT-Anweisung. Zum Zeichnen von 
Punkten und Linien stehen Ihnen vier Farben zur Verfiigung. Einen 
Punkt Oder eine Linie loscht man, indem man als Zeichenfarbe dieselbe 
Farbe wie die Hintergrundfarbe verwendet. Ein einfaches Beispiel ist 
eine Punktewoike, bei der die Farbe und die Koordinaten des Punktes aus 
Zufallszahlen mit Hilfe der RND-Funktion ermittelt werden (Abb. 2.21). 
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Abb. 2.19: Programm zur Erzeugung eines Testbilds 




Abb. 2.20: Ein Testbild hilft bei der Justierung des Farbfernsehers. 
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Abb. 2.21: Programm zur Erzeugung einer Punktewolke 



Wird die PLOT-Anweisung in Programmzeile 80 mit einem TO oder 
einem zweiten Koordinatenpaar versehen, dann werden anstelle der 
Punkte Linien auf dem Bildschirm gezeichnet. Hier gibt es zwei Varian- 
ten, deren Unterschied Sie selbst nachvollziehen konnen, indem Sie im 
o. a. Programm folgende Anderungen vornehmen: 

21 PLOT 0,0 
80PLOTTOX,Y 

Bei dieser Variante wird immer eine neue Linie an den Endpunkt der vor- 
herigen angehangt. Diese Form der PLOT-Anweisung ist sehr anwender- 
freundlich ausgelegt, da die Anzahl der TO-Elemente nicht auf eines 
beschrankt ist: 

PLGTO.OTO 159,0 TO 159,101 TO 0,101 TO 0,0 

Durch diese Anweisung wird z. B. ein Rahmen um den FGR-Bildschirra 
erstellt. Dadurch werden gegeniiber der anderen Variante eine Reihe von 
Befehlen und einiges an Arbeitsspeicher eingespart: 

PLOT 0,0 TO 159,0:PLOT 159,0 TO 159,1 01 PLOT 159,101 TO 
0,1 01 PLOT 0,1 01 TO 0,0 

Diese Anweisungsfolge ist in ihrer Wirkung identisch mit der vorherigen. 
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rHe Fahigkeit Ihres Colour-Genie, Linien zeichnen zu konnen, ist recht 
ln"tzUch Besonders interessant wird das Arbeiten mit dieser Grafik 
y^och erst durch die Fahigkeit des Rechners, auch kreisformige Darstel- 
lungen zu unterstiitzen. Dazu dient die CIRCLE-Anweisung, wie Sie sie 
1 programmzeile 50 sehen: 



t8 FCLS I ^ 

28 FCOLOUR Z 

|§ FOR R=5 TO 58 STEP 5 

58 CIRCLE RHD(18)+78,RHD(18)+38,R 

68 NEXT R 

78 FOR T=t TO 588 HEXT T 

88 COTO S9 

READY 



Abb. 2.22: Erzeugung von Kreisen mit Hilfe der CIRCLE-Anweisung 



Jm einen Kreis zu zeichnen , mussen der CIRCLE-Anweisung drei Werte 
Ibergeben werden. Die ersten beiden kennzeichnen die X- und Y-Koor- 
late des Mittelpunkts, die dritte den Kreisradius. 

FGanz rund erscheinen die Kreise eigentlich in den wenigsten Fallen. AUe 
Kreise sind ein wenig oval. Zwar laBt sich dies zum Teil vom Fernseher 
her korrigieren. Eine solche Korrektur wirkt sich jedoch auf die iibrigen 
^Bildschirmausgaben entsprechend aus und ist daher nicht empfehlens- 
rert. 

bUmgangen werden kann dies, indem man die Bildpunktkoordinaten 
teines Kreises berechnet und einen Kreis iiber die PLOT-Anweisung dar- 
[Stellt. In diesem Falle konnen Sie nicht nur komplette Kreise, sondern 
i^auch Kreisbogen und EUipsen konstruieren: 
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10 FCLB 

20 F COLOUR 3 

30 INPUT" MI TTELPUNKT WAABERECHT" f MX 

40 I NPUT " M I TTELPUNKT SENKRECHT " ) MY 

50 mPUT"KREISRADIUS")R 

60 I NPUT " ANFAN6SW 1 NKEL " ; AM 

70 INPUT"ENDWINKEL";EW 

B0 IF EW=0 THEN EW=3i0 

90 INPUT"X:Y VERHAELTNIS 1 i " ! VY 

100 IF VY=0 THEN VY=.9 

110 FOR 

120 PI=3. 1415927 

130 AW=AW/1B0WPI 

140 EW=EM/1Q0-»PI 

150 FOR A-AW TO EW STEP PI/(2«PI»R) 

160 X=<R*COS(A)+MX} 

170 Y=(R»SIN<A) ) 

1Q0 Y=VY»Y 

190 Y=MY-Y 

200 IF (X<0> OR (X>159) OR tY<0) OR <Y>101) THEN 

230 

210 IF A-AW THEN PLOT X,YsSOTD230 

220 PLOT TO X,Y 

230 NEXT A 



Abb. 2.23: Erzeugung eines Kreises durch Berechnung der einzelnen Koordinaten- 
punkte 



Zeile 20 bis 90 machen den Eingabeteil des Programms aus. Zwingend 
vorgeschrieben sind hier die Eingaben fiir den Mittelpunkt und den 
Radius. Alle iibrigen Eingaben konnen durch < RETURN > iibergangen 
warden. In diesem Falle wird dann ein VoUkreis gezeichnet, bei dem die 
Lange des waagerechten gleich der des senkrechten Radius ist. 

In Abb. 2.24 finden Sie eine Bildschirmausgabe dieses Programms, bei 
dem folgende Werte eingegeben wurden; 

MITTELPUNKT WAAGERECHT ? 80 
MITTELPUNKT SENKRECHT ? 50 
KREISRADtUS?50 
ANFANGSWINKEL ? 
ENDWINKEL ? 360 
X-YVERHALTNIS1:1 



;aufdem Colour-Genie 




Abb. 2.24: Ein mil dem Programm aus Abb. 2.23 erstellter Kreis 



R.2 Farbiges Ausfullen von Flachen 

;Eine leistungsstarke Anweisung des Colour- Genie ist der PAINT-Befehl. 
%/^X dieser Hilfe konnen Sie beliebige Flachen, die durch die Kantenlinien 
-ciner Figur vorgegeben sind, farbig ausmalen. Starten Sie dazu noch ein- 
-taal das Programm aus Abb. 2.23 (EUipse/Kreis) mit den dort vorgegebe- 
ffien Werten. Wie Sie den Programmzeilen 10 und 20 entnehmen konnen, 
^flflirde in diesem Programm die Farbe 1 als Hintergrundfarbe und die 
l^arbe 3 als Zeichenfarbe gewahlt. Diese Information ist wichtig, da durch 
^e PAINT- Anweisung immer so lange Flachen farbig ausgemalt werden, 
^s der Rechner auf dem Grafikbildschirm eine bestimmte Farbe vorfin- 
'det, die er als Begrenzungsfarbe auffaBt. Die Farbe Orange (Farbe 3) ist 
iiUso auf die Kreisflache bezogen eine Begrenzungsfarbe. Um dieses Kreis 
^poitgruner Farbe auszumalen , geben Sie einfach folgende Anweisung ein; 

PAINT 80,50,4,3 

e Anweisungsfolge bedeutet fur den Rechner folgendes: 

e so lange die Kreisflache, beginnend mit der Bildschirmkoordinate 
,50 in der Farbe Griin (Nr. 4) aus, bis du an orangefarbene (Farbe 3) 
renzen stoBt. Dann beende den Zeichenvorgang. 
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Zur PAINT- Anweisung gehort also ein Koordinatenpaar, eine Zeichen- 
farbe und eine Begrenzungsfarbe. 

Nun kann es vorkommen, daB die Linien, die eine farbig auszufiillende 
Flache begrenzen, selbst verschiedene Farben besitzen, wie in folgendem 
Beispiel: 



10 


FCLS 


1 












20 


FCDLOUR 


2 










30 


FGR 














40 


PLOT 


1/ 


LO 


TO 


100, 


4 




50 


FCQLOUR 


3 










60 


PLOT 


TO 


60 


,60 


TO 


1. 


10 


70 


eDTD 


70 













Abb. 2.25: Eine Dreiecksfldche soil farbig ausgemalt werden 



Diese Dreieckseiten sind mehrfarbig. Um diese Flache farbig ausfiillen zu 
konnen, mussen sowohl Farbe 2 als auch Farbe 3 als Begrenzungsfarbe 
ausgewiesen werden. Soil wiederum griin ausgemalt werden (Farbe 4), so 
iautet die entsprechende Anweisung: 

PAINT 60,20,4,2,3 



2.4 DAS ARBEITEN MIT BILDSCHIRMSTEUERZEICHEN 

Obwohl Sie vielleicht nicht so sehr darauf geachtet haben, kennen Sie 
schon eine Reihe von Bildschirmsteuerzeichen aus dem Kapitel „Ein 
Grafikeditor" . In der dort gezeigten Tastatureingaberoutine wurden den 
Pfeiltasten auf der Tastatur neue Funktionen zugewiesen. Hier noch ein- 
mal dieser Programmbestandteil: 



10 


CLS 




20 


COLOUR I 




30 


PRINT CHR*(14); 




40 


Y*=INKEY*: IFY*=""THEN40 | 


50 


IFYS=CHR* 1 13> THENY* 


=CHR$(29)+CHR*(26) 


60 


1FV*=CHR» (91 ) THENY* 


=CHR*{27) 


70 


I FY*=CHR* 1 1 > THENY* 


=CHR*(26) 


80 


IFY*=CHR* (9) THENY*= 


CHR*(25> 


90 


1FY*=CHR* (8) THENY*= 


CHR*(24> 


100 PRINTY*; :G0T040 





Abb. 2.26: Tastatureingaberoutine 
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AUe aufgefuhrten ASCII-Codes in diesem Programm, deren Werte klei- 
ner sind als 32, reprasentieren sog. Steuerzeichen. Sie tragen diesen 
Namen deshalb, well sie nicht, wie alle iibrigen ASCII-Codes, ein auf dem 
Bildschirm darstellbares Zeichen reprasentieren, sondern 

a) entweder die Position oder Darstellung des Cursors auf dem Bild- 
schirm verandem oder 

b) den Bildschirm oder Teile da von loschen. -- 

Wenn Sie in Ihrem Colour- Genie-Handbuch die Seite 145 aufschlagen, 
finden Sie dort eine sog. SPECIAL CODE Tabelle. Dort werden die 
Funktionen einiger Blldschirmsteuerzeichen erlautert. Nun wissen Sie 
z. B. , daB Zeile 30 des o. a. Programms den Cursor einschaltet. Auch die 
Funktion der ubrigen Bildschirmsteuerzeichen konnen Sie dieser Tabelle 
entnehmen. 

Sie sollen an einem Beispiel erkennen, wie man Steuerzeichen effektiv 
einsetzen kann: 



IB C:LS:CLEAR20Cie 

20 PRINT ©40, "DIESER TEXT BLEIBT UNBEEINFLUSST" ; 

30 A*="MELDUNG 1 1ST EIN ETWAS LAENQERER TEXT" 

40 B*="f1ELDUNB 2 1ST KUERZER" 

50 PRlNTeO,; 

60 PR I NT A* J 

70 FOR T-1 TO 5001 NEXT T 

B0 PRINTSO,! 

90 PRINTB»j 

100 BOTO 100 



Abb. 2.27: Ein Beispiel fiir die Anwendung von Bildschirmsteuerzeichen 

Wenn Sie dieses Programm starten, wird zuerst links oben auf dem Bild- 
schirm MELDUNG 1 1ST EIN ETWAS LAENGERER TEXT ausgege- 
ben. Nach einigen Sekunden wird dieser Text durch die neue Information 
MELDUNG 2 1ST KUERZER uberschrieben. Trotzdem bleibt der hin- 
tere Teil des vorher ausgegebenen Textes nach wie vor auf dem Bild- 
schirm stehen. Diesen unerwiinschten Begleiteffekt konnen Sie einfach 
beseitigen, indem Sie ein Steuerzeichen verwenden, das alle Texte von 
der Cursorposition bis zum Zeilenende loscht. Dieses Zeichen hat den 
ASCII-Code 30. 

85 PRINT CHR$(30); 

Starten Sie mit dieser Programmzeile das Programm neu. Nun finden 
keine Uberlappungen der ausgebenen Texte mehr statt. 

Nur wenige Steuerzeichen sind direkt iiber die Tastatur ansprechbar. 
Wenn Sie sich Ihre Tastatur anschauen, fallen Ihnen sicherlich zuerst die 
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Pfeiltasten ins Auge. Wie konnen Sie nun feststellen, welcher ASCII- 
Code bei Betatigung einer Taste von der Tastatur an den Rechner weiter- 
gegeben wird? 

Lassen Sie uns systematisch vorgehen. Sie betatigen eine Taste, und im 
Rechner findet eine Reaktion darauf statt. Das Colour-Genie hat also von 
der Tastatur ein Zeichen eingelesen und weiterverarbeitet . Bevor wir wis- 
sen, worin diese Weiterverarbeitung bestand, mlissen wir dieses Zeichen 
kennenlemen. Benotigt wird also ein Programm, das eine Tastaturab- 
frage durchfiihrt und, sobald eine Tasten betatigung erfolgt, das betref- 
fende Zeichen erfaSt und dessen Charakteristika auf dem Bildschirm aus- 
gibt. Da alle Zeichen, iiber die Ihr Colour- Genie verfiigt, in einer sog. 
ASCII-Tabelle registriert und mit einem Wert von 1 bis 255 belegt sind, 
konnen Sie mit Hilfe der BASIC-Anweisung PRINT ASC (betatigte 
Taste) sich diesen Wert ausgeben lassen und die gewiinschten Riick- 
schliisse auf Art und Funktion des Zeichens Ziehen. 

Sie benotigen also erst einmal ein Programm, das die Tastaturabfrage 
durchfiihrt und in der Lage ist, ein Zeichen in einer Variablen, z. B. X$, 
zu erfassen: 



10 X*=INKEY* 

20 IF X*=""THEN 10 

30 PRINT"Die betaetigte Taste liefert das 

Zeichen mit dem ASCII-Code :";ASC<X«) 

40 GOTO 10 



Abb. 2.28: Der ASCII-Code einer betdtigten Taste wird ausgegeben 

Starten Sie das Programm, und betatigen Sie die Taste A. Es erscheint fol- 
gendes auf dem Bildschirm: 

Die betaetigte Taste liefert das Zeichen mit dem 
ASCII-CODE: 65 

Wenn Sie nun in Ihrer ASCII-Code-Tabelle auf Seite 145 nachschauen, 
werden Sie dies bestatigt finden. Sie konnen auch andere Tasten, wie 1, ( 
usw. betatigen und entsprechende Vergleiche in der Tabelle durchfiihren. 

Betatigen Sie nun einmal die Taste <Pfeil links>. Sie sehen folgende 
Bildschirmausgabe: 

Die betaetigte Taste liefert das Zeichen mit dem 
ASCII-CODE: 8 

Wenn Sie nun wieder auf die ASCII-Tabelle zuriickgreifen, finden Sie 
dort in der ersten Spalte hinter der 8 den Text BS, Das ist die Abkurzung 



Grafik auf dem Colour-Genie 41 



fiir den Namen dieses Steuerzeichens: „Backspace", das hei6t „ruck- 
warts". Im Tabellenteil SPECIAL-Codes finden Sie auch eine Erlaute- 
rung dazu: „L6scht letztes Zeichen". 

Nehmen Sie sich nun bitte ein Blatt Papier zur Hand, und notieren Sie sich 
die ASCII-Zeichen fiir 



Pfeil links 


<8> 


Pfeil rechts 


<9> 


Pfeil runter 


<10> 


Pfeil hoch 


<91> 


RETURN 


<13> 


SHIPT Pfeil links 


<24> 


SHIM Pfeil rechts 


<25> 


SHIFr Pfeil runter 


<26> 


SHIP! Pfeil hoch 


<27> 


SHIFl RETURN 


<13> 



Die Ergebnisse miiBten mit den Werten in Klammern identisch sein. 
Andern Sie nun bitte unser Programm wie folgt: 

5CLS 

30 PRINT X$; 

Starten Sie es, geben Sie beliebigen Text ein, und experimentieren Sie mit 
den Pfeiltasten und deren <SHIFT>-Kombinationen. Vergleichen Sie 
jedesmal anhand Ihrer Mitschrift, welches Steuerzeichen auf dem Bild- 
schirm ausgegeben wurde, welche Funktion es laut ASCII- und SPE- 
CIAL-CODE-Tabelle besitzt und wie seine Auswirkungen auf den Bild- 
schirmtext sind. Ihnen wird auff alien, daB die Betatigung der RETURN- 
Taste z. B. den unangenehmen Nebeneffekt besitzt, zwar auf die nachste 
Zeile zu verzweigen, dort eventuell stehenden Text jedoch zu loschen. 
Lassen Sie uns diesen Nebeneffekt beseitigen. 

In der SPECIAL-Code-Tabelle finden Sie die Steuerzeichen fiir „Cursor 
zum Zeilenanfang" und „Cursor eine Zeile tiefer" als CHR$(29) und 
CHR$(26) definiert. Ebenfalls wissen Sie anhand Ihrer Aufzeichnungen, 
daB die RETURN-Taste den ASCII-Code 13 liefert und dieser in der 
Variablen X$ als CHR$(13) gefiihrt wird. 

Wenn Sie nun eine Zeile 25 definieren, 

25 IF X$=CHR$(13) THEN X$=CHR$(29)+CHR$(26) 

ist der „Nebeneffekt" weg, und Sie konnen auf einer ganzen Bildschirm- 
seite Text erstellen und korrigieren. 



KapitelD 

Einsatz als Tischrechner 



Dieses und die folgenden Kapitel sollen Ihnen helfen, sich mit dem 
Colour-Genie und seinen Eigentiimlichkeiten vertraut zu machen. Dazu 
gehort eine Menge Theorie, die solche Informationen beinhalten soil, 
denen Sie, soweit sie im Handbuch aufgefiihrt waren, bestimnat nicht viel 
Beachtung schenken. 

Das folgende Kapitel ist den mathematischen Grundlagen gewidmet. 



3.1 ZAHLENDARSTELLUNG 

Der Rechner unterscheidet zwischen ganzen Zahlen und Gleitkomma- 
zahlen. Fiir ganze Zahlen warden im Rechner zwei Speicherplatze belegt. 
Ein solcher Speicherplatz wird Byte genannt. Da jedes Byte Zahlenwerte 
zwischen und 255 erfassen kann, konnen folglich mit zwei Bytes 256 mal 
256, also 65536 verschiedene Zahlen dargestellt werden. Leider braucht 
man zum Arbeiten mit dem Rechner auch negative ganze Zahlen. Aus 
diesem Grunde wurde festgelegt, da6 mit zwei Bytes der Zahlenbereich 
—32767 bis 32767 dargestellt werden soil. SoUte Ihnen noch unklar sein, 
warum dies so ist, dann lesen Sie bitte nochmal in Ihrem Handbuch Kapi- 
tel 32 Seite 104ff. die Erlauterungen zu Bit, Byte und Hexadezimalzahlen 
nach. Dort wird auf den Seiten 105 und 106 beschrieben, warum man die 
hexadezimale Zahl FOOO unterschiedlich interpretieren kann, namlich 
einmal als negative Zahl —4096 und zum anderen als positive Zahl 61440. 

In der Praxis wird haufig dann mit ganzen Zahlen gerechnet, wenn Spei- 
cheradressen berechnet und Zahlungen vorgenommen werden oder wenn 
aus sonstigen Griinden unbedingt vermieden werden mu6, daB bei 
Berechnungen Nachkommastellen auftreten. Soil der Rechner nur mit 
ganzzahligen Werten arbeiten, muB ihm das expljzit iiber den Variablen- 
namen mitgeteilt werden. Dies geschieht durch Anhangen des Prozent- 
zeichens an den Variablennamen oder alternativ durch die DEFINT- 
Anweisung (s. a. BASIC-Handbuch Seite 13 und 72). 

Verfolgen Sie in eigenen Programmen eine solche Linie konsequent, 
indem Sie bestimmte Variablen von vornherein als ganzzahlig definieren, 
dann konnen Sie eine Menge Speicherplatz sparen. 
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Da ansonsten im Microsoft-BASIC mit Gleitkommazahlen gearbeitet 
wird, werden auch ganze Zahlen in Gleitkommazahlen umgewandelt und 
weiterverarbeitet. Nur wenn explizit per Definition durch die DEFINT- 
Anweisung oder durch die Variablenkennung % eine Zahl als ganzzahlig 
festgelegt ist, wird diese auch als solche gespeichert. 

Im Microsoft-BASIC kann mit zwei verschiedenen Arten von Gleitkom- 
mazahlen gerechnet werden. Dies verdeutlicht folgendes Beispiel: 

PRINT 22/7 
3.14286 
READY 
> 

einerseits und 

PRINT 22#/7# 

3.142857142857143 

READY 

> 

andererseits. 

Im ersten Fall ist das Ergebnis sechs-, im zweiten Fall sechzehnsteUig. 
Man spricht hier von Gleitkommazahlen einfacher und doppelter Genau- 
igkeit. Was ist iiberhaupt eine Gleitkommazahl? 

Zur Erzeugung einer Gleitkommazahl wird jeder eingegebene Zahlen- 
wert zunachst einmal in eine andere Schreibweise umgerechnet. Man 
nennt diesen Vorgang Normieren. Hierbei ermittelt der Rechner eine 
Zahl zwischen 0.5 und 1, die, multipHziert mit einer Potenz von 2, dem 
Wert der eingegebenen Zahl entspricht, z. B.: 

6 - 0.75 * 23 

Hier wurde beim Normieren eine Zahl zwischen 0.5 und 1 ermittelt, nam- 
lich 0.75. Fiir diese Mantisse stehen drei Bytes zur Verfiigung, wenn es 
sich um eine Gleitkommazahl mit einfacher Genauigkeit handelt, und sie- 
ben Bytes, wenn es sich um eine Gleitkommazahl mit doppelter Genauig- 
keit handelt. Die Umrechnung einer Zahl in eine Mantisse und einen 
Exponenten geht nicht immer auf . Es ergeben sich Fehler, deren Ursache 
darin zu finden ist, daB eben nur fiir eine gewisse Anzahl Nachkommastel- 
len Platz in den fur eine Zahl zur Verfiigung gestellten Bytes ist. Will man 
z. B. den Wert 7.9999999999 in der Variablen A# speichern und nicht 
den Wert 8, ist es notwendig, auf Gleitkommazahlen doppelter Genauig- 
keit auszuweichen. Dies konnen Sie leicht nachvoUziehen: 



Einsatz als Tischrechner 4S 



und 



X- 7.9999999999 

PRINT X 

8 

READY 

> 



A* =7.9999999999 

PRINT A+ 

7.9999999999 

READY 

> 



Der Sinn dieser Normierung besteht darin, in moglichst wenigen Bytes 
moglichst viele signifikante Ziffern zu erfassen. Dies wird leicht verstand- 
lich, wenn man die Zahlen 0.12345678 mal 10 hoch -6 und 0.00000012 
betrachtet. Beide Zahlen wiirden zur Erfassung die gleiche Anzahl von 
Bytes benotigen. 

Das Microsoft-BASIC verfugt iibrigens uber eine Funktion, die 
VARPTR (Variable) heiBt und eine wertvolle Hilfe darstellt, wenn es 
darum geht, rechnerinterne Vorgange wie die Normierung von Gleitkom- 
mazahlen nachzuvollziehen. Dieser VARPTR-Befehl ermittelt fiir eine 
Variable genau die Adresse im Speicher, die fiir eine Wertzuweisung die- 
ser Variablen reserviert wurde. Wenn Sie also irgendwo in einem Pro- 
gramm eine Variable als 



A#=6 



definiert haben und nun wissen wollen, wo die Zahl 6 als Gleitkommazahl 
doppelter Genauigkeit abgelegt wurde, kann Ihnen diese VARPTR- 
Funktion eine wertvolle Hilfe sein. Dazu folgendes Beispiel: 

10A+=6 

20 PRINT VARPTR(A#) 



Wenn Sie dieses Programm starten, gibt Ihnen der Rechner eine Adresse 
innerhalb seines Programmspeichers aus, wo er fiir die Variable A mit 
dem Wert 6 Platz geschaffen hat. 

Mit Hilfe des folgenden Programms konnen Sie den Rechner anweisen, 
Ihnen weitere Informationen iiber Mantisse und Exponent zu erteilen: 
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19 CLS=PRIHT"SO UIRD OER UERT FUER DIE V 

ARIABLE At IHSFEICHER ABGELECT " 

28 At=6 'At 1ST DIE DEF VARIABLE 

3» AD=VftRPTR(fii) 'AD=ERHITTELTE ADRESSE 

^8 FOR X=AD TO AD+7 

58 PRIHT-UERT VX-AO+I^": "; 

68 U=PEEK<X) 

78 PRIHTUSIHG"tti";U; PRIHT- DEZIHAL = " 

S8 PRIHTHIO*< ■0123f56789ABCDEF" IHT(U/16 
)+1 . t >iHID«< ■0t2345€789ABCDEF",U-IHT(U/l 
6>ti6+1,r);- HEXADEZIHAL." 
98 -DIE IH ZEILE 80 VERUEHDETE FUHKTIOH 
UIRD EIHGEHEHD IH KAPITEL 3 7 ERLAEUTERT 

188 NEXT X 
READY 



Abb. 3. 1 : Der Interpreter kann die Adressen ermitteln, in denen er die Werte ablegt, die 
Variablen zugewiesen wurden. 













f so UIRD DER UERT FUER 
1 SPEICHER ABGELECT^ 
' UERT 1 = DEZINAL 
UERT 2 = B DEZINAL 
UERT 3 = DEZINAL 
UERT 4 = DEZINAL 
UERT 5 = DEZINAL 
UERT 6 ■- DEZINA. 
UERT 7 = 64 DEZINAL 
UERT 8 = 131 DEZINAL 
READY 
>■ 


DIE VARIABLE At IH | 

= 00 HEXADEZIHAL. 1 
= 00 HEXADEZIHAL. 1 
= 00 HEXADEZIHAL. 
= 00 HEXADEZIHAL 
= 00 HEXADEZ HAL. 
= 00 HEXADEZ HAL. 
= 40 HEXADEZ HAL. 
= 83 HEXADEZ HAL. 










1 



Abb. 3.2: So wird die Gleitkommazahl 6 im Speicher abgelegt 
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Der Rechner bringt eine Bildschirmausgabe wie in Abb. 3.2. 

Was sagt diese Bildschirmdarstellung aus? 

Die Zahl 6, so wurde weiter oben festgestellt, entspricht normiert dem 
Wert . 75 * 2 hoch 3 . Die rechnerinterne Mantissendarstellung fur .75 ist 

0100 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 OOOO 0000 

Das erste Bit, in diesem Fall 0, reprasentiert das Vorzeichen (es handelt 
sich also um eine positive Zahl). Das nachste Bit, das einzige gesetzte in 
dieser Mantisse, reprasentiert den Wert 0.25. Das danach folgende wiirde 
den Wert 0.125 reprasentieren. Es fallt auf, da6 das Bit fiir den Wert 0.5 
fehlt, denn 0.5 plus 0.25 ergibt erst 0.75. Dieses Bit wird gespart, da man 
ja generell weiB, daB die Zahlen ab 0.5 aufwarts liegen und folglich immer 
0.5 in ihnen enthalten ist. 

Der Sinn dieser Normierung ist darin zu sehen, moglichst viele signifi- 
kante Ziffern zu speichern. Die Zahl 0.123456789 * 10 hoch -8 enthalt 
verstandlicherweise mehr Informationen als die Zahl 0.0000000001 . Wiir- 
den also z. B. bei sehr kleinen Zahlenwerten fiihrende Nullen auch als 
solche abgespeichert, ginge eine Menge Speicherplatz verloren. DaB dem 
keinesfalls so ist, konnen Sie dem Beispielprogramm in Abb. 3.1 entneh- 
men, indem Sie in Zeile 20 fiir die Variable A# andere Zahlen, z. B. sol- 
che mit extrem vielen Nachkommastellen, einsetzen. Solange die Anzahl 
der signifikanten Ziffern sechzehn nicht iiberschreitet, wird die Gleit- 
kommazahl korrekt in acht Bytes abgespeichert. 

Neben der Mantisse wird bei der Normierung auch der Exponent ermit- 
telt. Fiir die Zahl 6 ist dies der Wert 3. DaB wir in Abb. 3.2 unter dem 
Wert 8 dennoch keine 3, sondern die Zahl 131 vorfinden, beruht auf 
rechentechnischen Griinden. Bei der Normierung wird zu jedem ermittel- 
ten Exponenten die Zahl 128 hinzuaddiert. Jede im Micro soft-B ASIC 
ermittelte Gleitkommazahl benotigt fiir die Erfassung des Exponenten 
ein Byte. Eine Gleitkommazahl benotigt also insgesamt 4 Bytes, wenn sie 
in einer Variablen einfacher Genauigkeit erfaBt wurde (mit maximal 
sechs signifikanten Ziffern), und 8 Bytes, wenn sie in einer Variablen 
dopelter Genauigkeit erfaBt wurde; tiier konnen sechzehn signifikante 
Ziffern erfaBt werden. 



3.1.1 Exponentielle Schreibweise 

Neben der allgemeinen Schreibweise fiir Gleitkommazahlen, wie die Ein- 
gaben 3.1415927 oder —99.53, gibt es die Schreibweise in Exponential- 
form. Hier schreibt man 

4.318E4 

und meint nichts anderes als 4.318 * 10 hoch 4. 
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In diesem Format steht also rechts vom E die Anzahl der Stellen, um die 
das Komma in der Mantisse nach rechts, oder z. B. bei der Zahl 
4.318E— 1, nach links geriickt werden muli, Bei der Exponentialschreib- 
weise im Microsoft-BASIC wird anstelle des Buchstabens E oft der Buch- 
stabe D verwendet. Dadurch wird dem Rechner mitgeteilt, dal3 die einge- 
gebene Zahl als Gleitkommazahl doppelter Genauigkeit behandelt wer- 
den soil. Hierbei ist zu beachten, da6 z. B. bei einer Eingabe der Rechner 
nur dann mit doppelter Genauigkeit rechnet bzw. rechnen kann, wenn die 
Variable, der dieser Wert zugewiesen wird, eine Variable doppelter 
Genauigkeit ist. Zwar ist auch fiir eine Variable einfacher Genauigkeit 
eine Eingabe der Form 

0.1234567890123D-1 

mogHch, diese Zahl wird aber dann als .0123457 gespeichert. 

Die Eingabe von Gleitkommazahlen mit doppelter Genauigkeit ist also 
nur dann angebracht, wenn diese auch vom Rechner in doppelter Genau- 
igkeit weiterbearbeitet werden kann. 

In diesem Zusammenhang ist noch ein weiterer Hinweis von Bedeutung: 

Wird eine Eingabe in Exponentialschreibweise vorgenommen, ist es drin- 
gend erforderlich, daB der Buchstabe E oder D, wie in den oben aufge- 
fiihrten Beispielen, als GroB- und nicht als Kleinbuchstabe eingegeben 
wird. SoUte sich trotzdem ein kleiner Buchstabe in einer Eingabe verir- 
ren, wird diese vom Rechner ignoriert, die Meldung 



?REDO 

ausgegeben und eine neue Eingabe verlangt. Aus der Anzahl der zur Ver- 

fiigung stehenden Bytes zur Erfassung einer Gleitkommazahl einfacher 

bzw. doppelter Genauigkeit lafit sich auch die kleinste bzw. groBte erfaB- 

bare Zahl ermitteln: Als zulassiger Zahlenbereich gilt -1E38 bis -I-1E38, 

genauer gesagt: 

/ 
-1.701411E-H-38bis -i-1.701411E-H-38 "" 

fiir Gleitkommazahlen einfacher Genauigkeit und 

- 1. 70141 183454455D-H -38 bis +1. 70141 183454455D-K 38 

fiir Variablen doppelter Genauigkeit. 

Auch wenn Sie sich vom Rechner Zahlen ausgeben lassen, werden Sie 
manchmal feststellen, daB deren Werte, sobald sie uber bzw. unter einer 
bestimmten Grenze hegen, in der exponentiellen Schreibweise ausgege- 
ben werden. Dies tritt in der Regel dann ein, wenn die Zahlen betragsma- 
Big auBerhalb des Bereichs von 0.01 bis 999999.4 liegen. 
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Mit der Ausgabe von Gleitkommazahlen machen Sie sich am besten ver- 
traut, indem Sie folgendes kurze Programm eingeben und selbst experi- 
mentieren: 

10 INPUT A# 
20 PRINT A# 
30 GOTO 10 

Starten Sie dieses Programm, und geben Sie Zahlenwerte wie 24E5, 
— 3.6E— 4, 8E6 und andere Gleitkommazahlen Ihrer Wahl ein. Sie sollten 
erst dann zum nachsten Kapitel iibergehen, wenn Sie sicher sind, diese 
Thematik verstanden zu haben. 



3.1.2 Zahlenausgabe mit PRINT USING 

Es kann auch Situationen geben, bei denen es wiinschenswert ist, Zalilen, 
die wegen Ihrer GroBe noimalerweise in Exponentialschreibweise ausge- 
geben wiirden, in „normaler Schreibweise" ausgeben zu lassen. In einer 
Tabelle macht es sich z. B. nicht besonders gut, wenn dort eine Zahl wie 
6.45E8 auftaucht. In diesem Fall konnen Sie sich einer BASIC-Anwei- 
sung bedienen, die PRINT USING heiBt. 




Abb. 3.3: Mit Hilfe der PRINT USING-Anweisung konnen Sie Ausgabeformate vor- 
geben 
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Mit ihr konnen Sie ein gewiinschtes Ausgabeformat selbst vorgeben. 
Diese Anweisung finden Sie eingehend auf den Seiten 64ff . Ihres Hand- 
buchs beschrieben. Aus diesem Grunde soil hier auch nur ein kurzes Bei- 
spiel vorgestellt und nicht weiter erlautert warden. 

Angenommen, Sie rechnen im obigen Beispiel nur mit DM-Betragen, 
d. h., daB auszugebene Betrage maximal zwei Nachkommastellen und 
den Zusatz DM aufweisen soUen. Dazu mussen Sie Zeile 20 wie folgt 
abandern: 

20 PRINT USING"#######+# .## DI\/I";A$ 

Eine entsprechende Bildschirmausgabe finden Sie in Abb. 3.3. 



3.2 OPERATIONEN 

Die iiblichen Regeln der Punkt- und Strichrechnung sind Ihnen sicherlich 
vom Taschenrechner her bekannt. Sie soUen hier aus diesem Grunde 
nicht detailliert behandelt werden, da Computer mit arithmetischen Ope- 
rationen nicht anders verfahren als Taschenrechner. Auch hier gelten die 
Regeln: 

Klammerrechnung geht vor Punktrechnung. 
Punktrechnung geht vor Strichrechnung. 

Ihr Colour-Genie-Handbuch widmet das ganze Kapitel 3 diesem Sach- 
verhalt. 

Was Ihnen allerdings nicht so gelaufig sein wird wie arithmetische Opera- 
tionen sind logische Operationen. Das Microsoft-BASIC kennt die drei 
logischen Operatoren 

AND OR und NOT. 

Das Ergebnis einer solchen logischen Operation ist entweder der Wert 
Null Oder ein Wert ungleich 0, in der Regel -1. Der Zahlenwert Null wird 
hierbei vom Rechner als „falsch" interpretiert, der Wert —1 als „wahr". 

Mit logischen Operationen priift man demzufolge den Wahrheitsgehalt 
von Aussagen. Wenn Sie den Rechner Bedingungen priifen lassen, z. B. 
in Form einer IF-Anweisung, fallt Ihnen dies in der Regel gar nicht auf, 

IFA=5 0RA-3THEN... 



da hier das Ergebnis einer logischen Operation gar nicht offen zu Tage 
tritt, sondern sofort vom Rechner intern weiterverarbeitet wird. DaB 
jedoch auch Aussagen wie 
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PRINT 1 AND 5 
oder 

PRINT OR 1 



logische Operationen darstellen und auch in dieser Weise vom Rechner 
verarbeitet werden, ist der Grund dafiir, daB wir uns naher mit diesen 
Dingen befassen miissen. Zunachst sollen Sie die Wahrheitstafeln der 
Operatoren AND, OR und NOT kennenlernen. 

OR 0-1 AND 0-1 NOT 0-1 



0-1 -10 

-1 -1-1 -1 0-1 

Dies sind also sogenannte Wahrheitstafeln fiir Operationen. Seiche 
Wahrheitstafeln geben immer Auskunft dariiber, wie das Ergebnis einer 
logischen Operation ist, wenn 

a) beide der gepriiften Bedinungen falsch sind; 

b) entweder die eine oder die andere Bedingung wahr ist; 

c) beide gepriiften Bedingungen wahr sind. 

Stellen Sie sich einmal vor, sie wollen den Wahrheitsgehalt der Aussage 

Ich heiBe Frank UND bin im Dezember geboren 

priifen, so kann diese Aussage entweder wahr oder falsch sein, je nach- 
dem, welche der folgenden Bedingungen als wahr oder falsch gegeben 
sind: 

1. Ich heiBe nicht Frank (0) UND ich bin im November geboren (0) 

2. Ich heiBe Frank (—1) UND bin im November geboren (0) 

3. Ich heiBe Willi (0) UND bin im Dezember geboren (—1) 

4. Ich heiBe Frank (—1) UND bin im Dezember geboren (—1) 

Nur die letzte gepriifte Bedingung, Nr. 4, liefert in ihrer Gesamtaussage 
ein iogisches „Wahr". Dies sagt auch die Wahrheitstafel aus: 

OAND ergibt (Falll) 

-lAND ergibt (Fall 2) 

OAND-1 ergibt (Fall 3) 

-lAND-1 ergibt -1 (Fall 4) 

Trotz alledem wird aus solchen Beispielen der Wahrheitsgehalt einer 
Aussage nicht immer ersichtlich. So ist z. B. die Aussage 

Ich gehe heute schwimmen ODER surf en 

in der Beziehung zweideutig, da sie entweder bedeuten kann: 
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Fain 

Ich gehe heute entweder schwimmen ODER ABER surfen 

FaU2 

Ich gehe heute schwimmen, (ODER) surfen ODER vielleicht 

auchbeides. 

Spricht man vom „Schwimmen oder Surfen" und meint den ersten Fall, so 
ist der Wahrheitsgehalt der Aussage als falsch zu betrachten, wenn 
sowohl das eine als auch das andere getan wird. 

Den ersten Fall dieser ODER-Verkniipfung nennt man, da man die Mog- 
lichkeit „ sowohl Schwimmen als auch Surfen" ausschlieBt, auch ein aus- 
schlieBendes oder exklusives ODER und verwendet XOR zur Unter- 
scheidung dieser beiden OR-Varianten. Wird im Microsoft-BASIC ein 
OR verwendet, ist dies grundsatzlich das einschlieBende OR, also die 
Variante, die auch dann eine wahre Gesamtaussage hefert, wenn beide 
der gepriiften Bedingungen wahr sind. Dies belegt auch die Wahrheitsta- 
fel. 

Der dritte der logischen Operatoren NOT kehrt den Wahrheitsgehalt 
einer Aussage einfach um. 

Wenn etwas NIGHT wahr ist, ist es falsch. DaB hier auch der Rechner so 
vorgeht, konnen Sie leicht nachpriifen, indem Sie einfach 

PRINT NOT -1 

eingeben. Das Ergebnis ist, wie nicht anders erwartet, eine 0. 

Logische Operationen werden beim Golour- Genie bitorientiert abgear- 
beitet. Damit unterscheidet sich das Microsoft-BASIC wesentlich von 
BASIC-Interpretern auf anderen Rechnern. 

Dazu kurz zwei Beispiel (die Sie hoffenthch nicht zu sehr aus der Fassung 
bringen) : 

PRINT 2 OR 3 

3 

READY 

> 

und 

PRINT 2 AND 3 

2 

READY 

> 

Diese recht seltsam erscheinenden Ergebnisse stiffen eine Menge Verwir- 
rung, wenn man sich nicht dariiber klar ist, wie sie zustande kommen. 
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Dies ist jedoch sehr einfach: 
20R3 

2ist 00000010 

Verkniipfung = OR 

3 ist 00000011 

ergibt 



in Dualschreibweise 
in Dualschreibweise 



00000011 =dezimal3 

Hier wurden Dualzahlen miteinander verkniipft, und zwar so wie 
Wahrheitstafel vorschreibt. Analog gilt dies auch fiir die AND-Ve t 
fung: 

2 AND 3 

2 ist 
Verkniipfung = AND 

3 ist 



ps die 
nop- 



00000010 in Dualschreibweise 

0000001 1 in Dualschreibweise 



ergibt 



00000010 =dezimal2 



Das Verwirrende, namhch, daB bei logischen Operationen, dig ^i^^ 
nur die Ergebnisse oder —1 kennen, plotzlich Ergebniss'e wie 2 ^}^^^^ 
auftauchen, Uegt also nur daran, daB das Ergebnis der logischen \ "^ 
kniipfung zweier Zahlen eine Bitkette ist, die im Microsoft-BASTr ^^' 
Dezimalzahl ausgegeben wird. ^ als 

Natiirlich ist es auch moglich, mehr als zwei Bedingungen in einer 
„Mehrfachoperation" zu priifen: 



quasi 



PRINT 1 OR 7 OR 9 OR 11 



Treten bei solchen Operationen die Operatoren AND, OR \t 
gemeinsam oder mehrfach auf, ist zu beach ten, daB keinesfalls all' ^S^^ 
ratoren die gleiche Abarbeitungsprioritat besitzen. Wie bei arith 



schen Operationen die Klammerrechnung vor der Punktrechnun *^'" 
Punktrechnung vor der Strichrechnung steht, ist die Bindunesstarlf ' ^^^ 
Operation NOT groBer als die des AND , diese ist wiederum grog^j. , ^^r 
desOR. ^Isdie 



Auf gut deutsch heiBt das: Wenn Ihr Rechner die logische Operati 
PRINT COR 4 AND DOR 8 

bestimmen soil, ist das das gleiche wie 



PRINT OR (4 AND 0) OR 8 
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SoUte dies nicht so ganz in Ihrem Sinne sein, miissen Sie durch das Setzen 
von Klammern Ihren (in dieser Beziehung ganz sturen) Partner Compu- 
ter uberzeugen. 

Damit Ihnen hier keine Fehler unterlaufen, ist in Abb. 3.4 noch einmal 
eine vollstandige Reihenfolgetabelle aufgefiihrt, aus der Sie die Binde- 
starke, d. h. die Abarbeitungsprioritat der einzelnen Operatoren entneh- 
men konnen. 

Wohl die gelaufigste Variante logischer Operationen ist das Durchfiihren 
von Vergleichen. Hierfiir stehen Ihnen die Zeichen < , > und = sowie die 
entsprechenden Kombinationen zur Verfiigung. Wiederum ist das Ergeb- 
nis eines solchen Vergleichs ein logischer Wert, der entweder ein „Wahr" 
Oder ein „Falsch" reprasentiert und zahlenmaBig eine — 1 oder liefert. 
Auch dieses ist beim Rechner leicht nachvollziehbar, indem Sie z. B. 



PRINT 1=2 


READY 
> 



eingeben. Hierzu soUten Sie Kapitel 13 Ihres Handbuchs aufschlagen, wo 
als Entscheidungsbefehl Vergleichsoperationen behandeh werden. Neu 
ist an dieser Stelle auch nur, daS hier logische Operationen nicht in der 
bekannten Form einer IF THEN-Anweisung auftauchen, sondern direkt 
in einer PRINT- An weisung formuliert werden, was, wenn man gewohnt 
ist, das Gleichheitszeichen als Bestandteil einer Gleichung oder einer 
Wertzuweisung aufzufassen, einem irgendwie gegen den Strich geht. 

Wahrscheinlich legt sich dieses Unwohlsein wieder, wenn Sie folgendes 
eingeben: 

PRINT 1<2 
-1 

READY 
> 



Im ersten genauso wie im zweiten Beispiel fiihrt der Rechner einen Ver- 
gleich der beiden Zahlen 1 und 2 durch. Nur die Vergleichsoperatoren 
sind andere: einmal =, einmal <. 

Die Bedeutung des Gleichheitszeichens hangt also vom jeweiligen 
Zusammenhang ab. Wahrend bei der Schreibweise B=2 der Variablen B 
der Wert 2 zugewiesen wird, soil bei der Schreibweise PRINT B=2 iiber- 
priift werden, ob die Variable B den Wert 2 tatsachlich hat. 
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Bindestarke der Operatoren 


Abarbeitungspioiitat 





hochste 


+ ~NOT 


f 


A 


1 


*/ 


! 


+ - 


1 


<<=>>^<>>< 


! 


AND 


I 


OR 


niedrigste 



Abb. 3.4: In welcher Reihenfolge Operationen durchgefiihrt werden, hdngt von der 
Bindestarke der Operatoren ab. 



3.3 VARIABLEN 

Kapitel 4 Ihres Handbuchs behandelt die verschiedenen Variablentypen 
und deren Anwendung in BASIC. In diesem Kapitel neigt man als Anf an- 
ger dazu, zwar zu registrieren, daB es da eine Reihe verschiedener Varian- 
ten gibt, ohne sich jedoch dariiber recht klar zu sein, wann und wo der 
Einsatz eines bestimmten Variablentyps von Vorteil sein kann oder wann 
er dringend erforderlich ist. 

Be senders verwirrend fiir Ungeubte ist die Vielfalt der existierenden 
Notationen wie !,%,$,#, die verschiedenen Definitionsanweisungen 
wie DEFINT, DEFSNG, DEFDBL, DEFSTR und die Konvertierungs- 
funktionen CSNG, CDBL und CINT, durch die einmal definierte Varia- 
blentypen wieder in andere Typen umgewandelt werden konnen. Dazu 
ein Beispiel: 

10 DEFSTR A 
20A="Ha!lo" 

Wie Sie sehen, wird durch die DEFSTR- Anweisung dem Rechner mitge- 
teilt, daB alle folgenden Variablen, die mit dem Buchstaben A beginnen, 
Zeichenkettenvariablen sind. Die DEFSTR- Anweisung bietet also in 
erster Linie eine andere Schreibweise fur Zeichenkettenvariablen, da 
kein $-Zeichen mehr an die Variable angehangt wird. In ahnhcher Form 
gilt dies auch fiir die DEFDBL-Anweisung. Lesen Sie hierzu bitte in 
Kapitel 24 auf Seite 72ff. Ihres Handbuchs nach, 

Warum, meinen Sie, braucht man iiberhaupt so viele Variablentypen, wo 
doch zwei oder drei, vielleicht einer fiir numerische Variablen 
(A,AA,BC,C9) und einer fur Zeichenkettenvariablen (A1$,B4$, etc.), 
vollstandig ausreichen? 



56 Mein Colour-Genie 



Die wichtigste Erklarung ist wohl die, daB Mikrocomputer wie das 
Colour-Genie vom verfiigbaren Speicher her nicht so optimal bestiickt 
sind, daB sie es sich leisten konnen, groBe Mengen an Speicherplatz ein- 
fach dadurch zu vergeuden, daff sie dem Rechner jeweils vier oder acht 
Bytes zur Speicherung eines Variablenwerts zubilligen, wo effektiv nur 
zwei Bytes benotigt warden. 

Gerade bei langeren Programmen oder solchen, die mit Feldern arbeiten, 
kann eine solche Programmierung leicht Hunderte von Bytes beanspru- 
chen, die anderswo dringend fehlen. Wie sich dies 2. B. bei Feldern, die 
im folgenden Kapitel zur Sprache kommen, auswirkt, konnen Sie selbst 
nachvollziehen, indem Sie folgende beide Befehlsfolgen vergleichen: 

NEW:PRINTMEM:DIMA(1000):PR1NTMEM 
einerseits und 

NEW:PRINT MEM:D!MA%(1000):PR!NT MEM 
andererseits. 

In beiden Fallen haben Sie den Rechner dazu veranlaBt, Speicherplatz fiir 
die Erfassung von 1000 Zahlenwerten zur Verfugung zu stellen. Wenn Sie 
wissen, daB in diesem Feld nur ganze Zahlen erfaBt werden, verschenken 
Sie, wenn Sie nicht durch das Prozentzeichen oder eine DEFINT-Anwei- 
sung die Variable als ganzzahlig bestimmen, glatte 2000 Bytes. 

Das Prozentzeichen einer Variablen wird ubrigens nicht mitgespeichert, 
sondern stellt nur eine zusatzliche Information fiir den Rechner dar, um 
welchen Variablentyp es sich handelt. Im Microsoft-BASIC ist es dem 
Benutzer freigestellt, eine derartige Typenkennung an Variablen anzu- 
hangen, wenn diese im Programm verwendet werden, oder alternativ 
dazu am Anfang des Programms durch eine DEFINT, DEFSNG oder 
DEFSTR Anweisung global alien in einem Programm verwendeten 
Variablen, die mit bestimmten Anfangsbuchstaben beginnen, solche 
Typenmerkmale zuzuweisen. 

WoUen Sie z. B. alien Variablen, die mit den Buchstaben A, B, C, D, L 
und M beginnen, das Attribut ganzzahhg zuweisen, so lautet die entspre- 
chende Anweisung: 

DEFINT A-D,L,M 

Vermeiden Sie die Verwendung von ganzzahligen Variablen, wenn Sie 
Divisionen vornehmen! 

10 DEFINT C 
20 C=4/3 
30 PRINT C 
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liefert das Ergebnis 

1 
READY 

Doch nicht nur die Typenkennung einer Variablen ist von Bedeutung. 
Auch bei der Verwendung des Variablennamens sind bestimmte Vor- 
schriften zu beachten. Die wichtigsten sind folgende: 

1. Der Name einer Variablen muB immer mit einem Buchstaben begin- 
nen. 

2. Ein Variablenname kann beliebig lang sein, sofern in ihm keine 
BASIC-Schliisselworter enthalten sind. 

3. Fiir das Microsoft-BASIC sind jedoch nur die ersten zwei Stellen eines 
Variablennamens signifikant. So sind z. B. fiir den Rechner die Varia- 
blen HAND, HASE und HA identisch. 

Demzufolge sind z. B. die Variablen OTTO und KONTO unzulassig, da 
beide das BASIC-Schlusselwort TO enthalten. In ahnlicher Weise gilt 
dies fiir Variablen wie NOTEN, FORMEL, RAND etc. 

Bei der Verwendung von Variablen, die in ihrem Namen eine Aussage 
enthalten, ist also Vorsicht geboten! 

Erwahnenswert im Zusammenhang mit Wertzuweisungen an eine Varia- 
ble ist die Anweisung LET. 

Will man die Wertzuweisung fiir eine Variable besonders betonen, kann 
man dies tun, indem man den Befehl LET vor die Variable setzt. Die Ver- 
wendung der LET Anweisung ist optional, d. h. es besteht kein Unter- 
schied darin, ob Sie in einem Programm LET A=7 oder einfach A=7 
schreiben. Bei Programmen allerdings, die hinterher compiliert werden 
sollen, d. h. in Maschinensprache iibersetzt, spielt sowohl die LET- 
Anweisung als auch die Verwendung von ganzzahligen Variablen eine 
erhebhche Rolle. Ein compiliertes Programm, bei dem hauptsachlich 
ganzzahlige Variablen verwendet werden, vor die zusatzlich eine LET- 
Anweisung gesetzt wird, laufen in compilierter Fassung zwischen 40 und 
60% schneller ab als solche Programme, in denen das nicht beriicksichtigt 
wurde. 



3.4 FELDER 

Schon im vorherigen Abschnitt wurde kurz ein Feld definiert, um zu ver- 
deutlichen, wie durch Verwendung von Variablen des richtigen T3q3s 
Speicherplatz gespart werden kann. Damit wurde, wenn auch nur als Mit- 
tel zum Zweck, diesem Kapitel vorgegriffen. Dort stand als Kernaussage 

DIMA%{1000) 
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Die erste Auswirkung dieser Anweisung auf den Rechner, daB namlich 
eine Menge Speicherplatz nach Betatigung der < RETURN > -Taste 
plotzlich nicht mehr zur Verfugung stand, haben Sie schon festgestellt. 
Dieser Platz wurde „reserviert" fiir viele Variablen, die alle den Namen 
A% haben und zu ihrer Unterscheidung einen zusatzlichen sog. Index 
fiihren, der kennzeichnet, um welches A% es sich handelt. So konnen Sie 
z. B. nach Eingabe der o. a. DIM- Anweisung A%(501) mit dem Wert 
lOObelegen: 

A%(501)=100: PRINT A%(501) 

Alle iibrigen A% -Variablen (mit dem Index bis 500 und 502 bis 1000) 
werden durch diese Wertzuweisung nicht beeinfluBt und behalten ihre bis 
dato zugewiesenen Werte. 

"Wozu benotigt man derartige Einteilungen in der Praxis? Die Fachhtera- 
tur sagt dazu: Immer dann, wenn ein Problem von einer oder mehreren 
EinfluBgroBen abhangt und diese Grofien in ganzen Zahlen, beginnend 
etwa mit oder 1, ausgedriickt werden konnen. 

Dazu ein Beispiel: Stellen Sie sich einen Wohnblock vor, bestehend aus 
mehreren gleichartig aufgebauten Hochhausem. Uber die dort wohnen- 
den Familien woUen Sie Daten sammeln und spater auswerten, Es inter- 
essiert Sie z. B. wie viele Personen jeweils in einem Haushalt leben. 

Betrachten Sie zuerst eine Etage dieses Wohnblocks, z. B. die vierte. Sie 
wissen, dafi dort, sagen wir, 8 Wohnungen existieren. 

In Wohnung 1 wohnt eine sechskdpfige Familie, in Wohnung 2 ein ver- 
witweter Rentner. Da 8 Wohnungen in Etage 4 zur Verfugung stehen, ist 
durch 

DIM E4(8) 

ein Feld hinreichend definiert. 

E4(l ) = 6 steht fur die sechskdpfige Familie 
E4(2) = 1 steht fiir den Rentner 

E4(x) = ? steht fiir die x-te Wohnung in dieser Etage . 

Die Wohnungsnummer einer Etage ist also, um auf die o. a. Definition 
zuriickzukommen, eine abhangige EinfluBgroBe, was die Anzahl der in 
einem bestimmten Haushalt lebenden Personen in der 4. Etage angeht. 

Nun hat so ein Hochhaus in der Regel noch weitere Etagen. Gehen wir 
z. B. von 7 Etagen aus, benotigen wir zur Bestimmung eines ganz 
bestimmten Haushalts eine weitere EinfluBgroBe, die Etage, welche 
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Werte zwischen 1 und 7 annehraen kann. Ein Hochhaus HH% dieser 
Bauart ist durch 

DIMHH%(7,8) 

komplett in bestimmbare Wohnungseinheiten „zerlegbar". Soil beispiels- 
weise die Variable fixr die Etagennummer EN lauten und die fur die Woh- 
nungsnummer WN, dann kann die sechskopfige Familie aus Etage 4 neu 
erfaBt werden durch 

EN-4:WN=1:HH%(EN,WN)=6 

Die Erweiterung eines solchen Feldes um weitere EinfluBgroBen, wie 
mehrere Stade (ST) und mehrere Hochhauser (HH), ist genausogut mog- 
lich. Sie konnten dann z. B. genau ermitteln, wie viele Personen in der 
Stadt 4, Hochhaus 3, Etage 4, Wohnungsnummer 8 leben. Ein seiches 4- 
dimensionales Feld (vierdimensional deshalb, weil 4 EinfluBgroBen eine 
bestimmte Datenmenge kennzeichnen) liegt jedoch weit auBerhalb der 
Speicherkapazitat eines Mikrocomputers, da sich die Anzahl der Varia- 
blen, fiir die Platz geschaffen werden muB, bei jeder neuen EinfluBgroBe 
um deren Maximalwert vervielfacht. Hinzu kommt, daB im Microsoft- 
BASIC des Colour-Genie ein Feldindex immer mit beginnt, so daB ein 
Feld der Form 

DIM A%{3) 

Platz fiir 4 Feldelemente hefert, namlich A%(0), A%(1), A%(2) und 
A%(3). Es ist in vielen Fallen jedoch verwirrend, das Feld mit dem 
Index in Berechnungen und Erfassungen mit einflieBen zu lassen. 

Die Eintragung der einzelnen Elemente in ein Feld ist zwar recht miih- 
sam, hat jedoch auch einige Vorteile. Sobald namlich alle Angaben voU- 
standig sind, kann man eine Vielzahl von Auswertungen durchfuhren, 
wie beispielsweise, wo Wohnungen leer stehen (ein 0-Personen-Haus- 
halt), wo GroBfamilien zu finden sind etc. 

Genausogut konnen Sie ein weiteres Feld der Form 

DIM HH$(7,8) 
erstellen und dort Zeichenketten erfassen, wie 

HH$(5,4)="Familie Schultz" 
und so immer wissen, wer wo zu finden ist. 



3.5 FUNKTIONEN 

Zuerst eine Information vorweg, die fur Colour-Genie Besitzer ohne Dis- 
kettenlaufwerk gilt. 



Einsatz als Tischrechner 



Hier wurde eine Funktion in Zeile 7 definiert. Der Name dieser Funktion 
ist FN S$. Hinter dem Funktionsnamen stehen in Klammern, durch Kom- 
mata getrennt, die sogenannten abhangigen Variablen: 

Die Variable fur den Vornamen Nl$ 
Die Variable fiir den Nachnamen N2$ 
Die Variable fur die Vorwahl VW$ 
Die Variable fiir die Rufnummer RN$ 

Was bedeutet diese definierte Funktion fiir das Colour- Genie? Dem 
B ASIC-Interpreter sagt diese Funktion folgendes: 

Wenn ich irgendwann im Programm auf einen Funktionsaufruf der Form 
FN S$(.. .) treffe, so mu6 ich die dahinter in Klammern stehenden Varia- 
blen werte ermitteln und diese so weiterverarbeiten, wie es mir der Defini- 
tionsteil der Funktion (DEFFNS$) vorschreibt. 

Auf Zeile 7 bezogen bedeutet das, da6 Nachname und Vorname ver- 
tauscht und durch ein Komma getrennt werden. AuBerdem soil zwischen 
der Vorwahl und der Rufnummer ein / stehen. 

Leicht nachvoilziehbar? Wenn nein, geben Sie einfach einmal folgendes 
ein: 

PRINT FNS$("Kalle","Anton","0999", "44444") 

und betatigen Sie die < RETURN > -Taste. Kennen Sie das Ergebnis 
schon? Es lautet 

Anton, Kalle ... 0999/44444 

Funktionen im Microsoft-BASIC treten also keinesfalls nur in der 
bekannten, mathematischen Form einer Funktionsgleichung auf. Viel- 
mehr kann man sie iiberall dort einsetzen, wo Gleichungen und Zuwei- 
sungen iibersichtlich gestaltet werden soUen, oder wenn in einem Pro- 
gramm eine bestimmte Gleichung haufig eingesetzt wird. 

DEFNCUR=PEEK(&H4020)+256*PEEK{&H4021)-&H4400 

ermittelt zum Beispiel jedesmal die gegenwartige Position des Cursors auf 
dem Bildschirm, wenn Sie durch PRINT FNCUR eine entsprechende 
Berechnung wunschen. Aus diesem und dem vorherigen Beispiel sind 
einige der Vorteile von definierten Funktionen ableitbar: 

* Bei mehrfacher Verwendung einer bestimmten Gleichung erweisen sie 
sich als platzsparend. 

* Sie sind flexibel aufbaubar. 

* Sie erlauben einen iibersichtlichen Programmierstii. 
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* Man kann aus dem Namen leicht die Aufgabe, die die Funktion iiber- 
nimmt, ableiten. 

* Die im Definitionsbereich der Funktion verwendeten Variablen (wie 
z. B.: Nl$, N2$, VW$, RN$ im Beispielprogramm in Zeile 7) uben 
keinen EinfluB auf gleichnamige Variablen im Programm aus. Wenn 
also irgendwo in Ihrem Programm die Variable A$ den Wert 12345 hat, 
andert sich dieser Wert nicht. Er ist unabhangig davon, wie oft Sie 
Funktionen aufrufen, in der en Definitionsteil sich ein A$ als abhangigg 
Variable befindet, 

* Funktionen konnen verschachtelt sein, d. h. eine Funktion kann in 
ihrem Definitionsteil eine weitere aufrufen. 

Ein Argument fiir die Anwendung von Funktionen ist es also, Formeln^ 
die haufig in Programmen gebraucht werden, zusammenzufassen. 

Besonders interessant sind solche Aufgaben, die sich nicht einfach durch 
Eingabe einer BASIC-Anweisung losen lassen. Dazu gehort zum Beispigj 
die Ermittlung der PRINT ©-Position, an der sich der Cursor gerade 
befindet. Die Funktion FNCUR, die Sie eben kennengelemt haben, \q{. 
stet dies. 




Abb. 3. 6: Mit Hilfe einer Funktion mrd eine Bedingung geprUft 
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Einmal definiert, arbeitet FNCUR wie alle anderen, „offiziellen" Funk- 
tionen im Microsoft-BASIC. Es reizt Sie nun sicherlich, weitere Funktio- 
nen dieser Art kennenzulernen, um die Leistungsfahigkeit Ihres Interpre- 
ters zu erweitern . Bevor wir allerdings detailliert auf dieses Thema einge- 
hen konnen, mochten wir Ihnen an einem Beispiel eine weitere Einsatz- 
form von Funktionen vorstellen (siehe Abb. 3.6). 

Geben Sie dieses Program ra ein, und starten Sie es. Geben Sie abwech- 
selnd ftir Z% Werte gleich oder ungleich 100 ein. Warum, meinen Sie, 
lauft dieses Programm? 

Lassen Sie uns Schritt fiir Schritt die einzelnen Operationen des Rechners 
zurxickverfolgen. Das kann man am besten in der Kommandoebene: 

NEW <RETURN> 

Erster Schritt: 

X=(100=100):PRINTX<Return> 

-1 

READY 

> 

Zweiter Schritt: I 

IF {100-100) = -1 THEN PRINT"NATUERLICH 1ST 100 - 100" <Re- 

turn> 

NATUERLICH 1ST 100 = 100 

READY 

> 

Vergleichen Sie beide Schritte, Was dem Menschen natiirUch erscheint, 
ist auch fiir den Rechner eine Selbstverstandlichkeit. Der Unterschied ist 
nur, da6 beide sich unterschiedlich ausdrixcken. Wenn fiir das Colour- 
Genie bei einem Vergleich sich etwas als „wahr" erweist, „merkt" es sich 
eine —1. Stellt es bei einem Vergleich ein „Falsch" fest, „merkt" es sich 
eine 0. (Vergleichen Sie dazu auch das Kapitel „Operationen".) 

Beim ersten wie beim zweiten Schritt wurde, obwohl es durch die Art der 
Darstellung fiir Sie fremdartig aussehen mag, durch (100=100) der Rech- 
ner veranlaBt, einen Vergleich durchzufuhren. Das Ergebnis dieses Ver- 
gleichs war, daB es sich um eine „logisch (durchaus) wahre" Aussage han- 
delte. I 

Der Unterschied zwischen den beiden Schritten besteht also einzig und 
allein darin, daB in Schritt 1 das Vergleichsergebnis —1 einer Variablen, 
namlich X zugewiesen wird, wahrend der Rechner in Schritt 2 anhand des 
Ergebnisses sich „entscheidet" , einen Text auszugeben. 
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1st Ihnen das Prinzip klar geworden? Trifft der Rechner auf ein 

X= (100=100) Oder X=(100> 100) Oder allgemein X= (A>B) 

so fa6t er dies als eine Aufforderung auf, den Ausdruck in Klammern auf 
seine Wahheit hin zu priifen. Eine solche „ Aufforderung" kann auch 
Bestandteil einer definierten Funktion sein. Dies konnen Sie leicht auf die 
o. a. Beispiele anwenden, indem Sie Zeile 20 unseres Beispielprogramms 
wie folgt abandern: 

20 DEFFN TEST (X%)={X%>=100) 

und den ausgegebenen Text in Zeile 40 entsprechend der gepriiften 
Bedingung anpassen: 

40 IF FNTEST(Z%)=0 THEN PRiNT"ZAHL<100" ELSE PRINT'ZAHL 
>= 100" 

Wenn Sie sicher sind, da6 Sie diese Grundlagen verstanden haben, kon- 
nen wir uns dem naclisten Kapitel zuwenden, wo Sie Anwendungsbei- 
spiele fiir eigene Funktionen finden und sehen, wie Sie diese aufbauen 
und wo Sie sie einsetzen konnen. 



3.6 EIGENE FUNKTIONEN 

Dieses Kapitel ist etwas schwieriger als die vorherigen , zumal weder im 
Colour-BASIC-Handbuch noch in der Disk-BASIC-Anleitung beson- 
ders viel dariiber aufgefiihrt ist. 

Daher vorweg eine kurze Beschreibung, wie Sie Funktionen im Micro- 
soft-BASIC definieren und diese aufrufen: 

Das Schlusselwort, durch das der Rechner erkennt: Hier wird eine Funk- 
tion definiert, lautet DEFFN. Jede Funktion hat ein en Namen, der min- 
destens zwei Zeichen lang sein mu6, wie z. B. : AA$,AAA$ (wenn es sich 
urn eine Zeichenkettenfunktion handelt) oder A1,AA (wenn es sich um 
eine numerische Funktion handelt). Wenn der Funktion bei ihrem Aufruf 
keine variablen Werte ubergeben werden sollen (s. a. Kapitel „Funktio- 
nen"), folgt das Gleichheitszeichen und die Funktion, wie z. B.: 

10 DEFFN BS$=CHR$(PEEK(&H4400)) 
RUN 

die immer, wenn Sie 

PRINT FNBS$ 

eingeben, das Zeichen ausgibt, das sich in der linken oberen Ecke auf dem 
Bildschirm befindet. 
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Genie-BASIC solche Zahlenkonvertierungen, wie z. B. die Umwand- 
lung einer Hexadezimalzahl in eine Dezimalzahl: 

PRINT &H4400 <RETURN> 

17408 

READY 

> 

Den umgekehrten Weg, dezimal in hex, unterstiitzt das Microsoft-BASIC 
des Colour- Genie allerdings nicht. Grund genug, diesen Mangel durch 
ein kurzes Programm zu beheben: 



le * DAS F0L8ENDE PROGRAMM DEFINIERT DIEFUNKTIO 
NEN FN HX«(XX> UND FN HEX*(X7.) ALS KQNVERT 
lERUNBSFUNKTIONEN EINER DE2I-MALZAHL IN EINE 
HEXADEZIMALZAHL 

20 CLEAR lenae 

3B '»*» ANFANG DES DEFINITI0N9TEILS ••** 
40 HB»-"01234567B9ABCDEF" 

50 DEFFN HX»(XX>-MID*(H0*»INT(XX/16)+1»1) + MID 
»<H0*,XX-INT<XX/16)*1A+1,1)I 'FUER ZAHLEN VON 

BIS 255 
60 DEFFN HEX*tXX>=FN NX* C INT (XX/256) ) +FNHX«<Xr. 

AND 2S5) : ' FUER ZAHLEN VON BIS 32767 
70 '»*» ENDE DES DEFINITIDNSTEILS »#*»» 
80 INPUT"WIE LAUTET DIE DEZIMALZAHL : " j XX 
90 PRINT"DIE DEZIMALZAHL ")XXj" ENTSPRICHT HEX A 

DEZIMAL "J 
100 IF XX>255 THEN PRINTFN HEX» (XX) i BDTO80 
110 PRINTFN HX*{XX) I BOTOBO 



L 



Abb. 3. 7: Konvertierungsfunktionen (dezimal in hex) 



Es gibt viele Aufgaben, die sich effizienter losen lassen, wenn man 
von vornherein mit Hexadezimalzahlen rechnet. AuBerdem ist die 
FNHEX$(x)-Funktion recht niitzlich, wenn Sei die vielen in Ihrem 
B ASIC-Handbuch aufgefiihrten Dezimaladressen im Speicherbelegungs- 
plan auf Seite 124 einordnen woUen. Wenn Sie dieses Programm starten, 
bekommen Sie ungefahr folgende Bildschirmausgabe: 
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Abb. 3.8: Bildschirmausgabe zum Programm in Abb. 3.7 



Schauen Sie sich das Programm genau an, und Sie werden feststellen, da6 
dort zwei Funktionen definiert wurden. Die eine, FN HX$(X%), wird in 
Zeile 110 immer dann aufgerufen, wenn die eingegebene Dezimalzahl 
kleiner als 256 ist. Dies ist keineswegs unbedingt notwendig, denn auch 
bei Zahlenwerten, die kleiner sind als 256, besitzt die zweite definierte 
Funktion, FN HEX$(X%), ihre Gultigkeit. Vielmehr sehen Sie hier das 
erstemal ineinander verschachtelte Funktionen, denn im Definitionsteil 
von HEX$(...) wird FN HX$(...) aufgerufen. Um sich die prizipielle 
Arbeitsweise dieser Funktion zu verdeutlichen, schlagen Sie am besten 
Kapitel 31 auf Seite 104 Ihres Handbuchs auf. Dort finden Sie ein Pro- 
gramm, das 17 Zeilen benotigt, um weitaus unkomfortabler die Dezimal- 
Hex-Konvertierung vorzunehmen. Hier sieht man sehr schon, wie effi- 
zient, kurz und elegant sich Funktionen einsetzen lassen. 



3.6.1 Auslesen eines frei de^nierten Zeichens 

Eine weitere Form der Konvertierung, die beim Umgang mit Rechnern 
friiher oder spater wiinschenswert ist, ist die Konvertierung von Dezimal 
in Dual. Ein Beispiel dafiir sind die in Ihrem Rechner frei programmier- 
baren 128 Zeichen. Was nutzt es Ihnen, wenn Sie zum Beispiel beim Aus- 
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lesen des dafur zustandigen Speicherbereichs folgende Werte geliefert 
bekommen: 

100 REM AUSLESEN DES SPEICHERS FUR DAS ERSTE FREI 

PROGRAMMJERBARE ZEICHEN AB SPEICHERADRESSE 
HF400 

110 FORX=&HF400TO&HF407 

160 PRINT PEEK{X) 

170 NEXTX 

Wenn Sie das Beispiel im Colour- Genie-Handbuch auf Seite 110 eingege- 
ben haben, bekommen Sie folgende Bildschirmausgabe: 

146 
40 

68 
124 

ea 



READY 



Dadurch wissen Sie allerdings noch lange nicht, wie das definierte Zei- 
chen aussieht. Wir definieren also eine entsprechende Funktion, die wir 
in das oben aufgefiihrte Programm einbauen: 



10 'FUNKTIDN ZUM FESTSTELLEN BESET ZTER 

B2W. NICHT 6ESETZTER BITS EINER ZAHL 

20 '»*» ANFANG DES DEFINITIQNSTEILS**** 

30 DEFFN BIT(Z'/.,XX>=S6N<ABStPEEK(2X) AND <2CXX) 
} ) 

40 '*** ENDE DES DEFINITIONSTEILS •*♦**» 

50 GOTG 100 : 'UEBERSPRINSEN DES UNTER- 

PRDBRAMMS 

60 FOR TX=7 TO STEP -1 

70 PRINT FNBIT(X,TX>(" "; 

S0 NEXT TX 

90 RETURN 

100 X=8(HF400tGOSU8 60 I'BESTIMMEN UNO 

AUSGEBEN DER 
GESETZTEN BITS 



Ahh. 3.9: Welche Bits sind gesetzt? 
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Wird die Funktion in Zeile 30 (DEFFN BIT(Z%,X%)) aufgerufen, so 
mussen fiir Z% der zu untersuchende Zahlenwert und fur X% das zu 
testende Bit iibergeben werden. Das Unterprogramm ab Zeile 60 testet 
liber eine Schleife alle 8 Bits der untersuchten Zahl. 1st das Bit gesetzt, 
wird eine 1 ausgegeben, bei zuruckgesetztem Bit eine 0. Alle Einsen ent- 
sprechen dunklen Bildpunkten, alle Nullen hellen. 

Nun ist es leicht, sich alle definierten oder z. B. das 80. Zeichen auf dem 
Bildschirm im GroBformat ausgeben zu lassen. Schauen Sie zuvor noch 
einmal in Ihr BASIC-Handbuch auf Seite 110. 

Dort konnen Sie feststellen, daB jedes frei definierbare Zeichen ein festes 
Raster, eine sog. Matrix besitzt, durch die es in Lange und Breite begrenzt 
wird. Das erste Zeichen ist ab Adresse &HF400, das zweite ab &HF408 
etc. abgelegt. Wenn Sie also das n-te Zeichen ausgegeben haben woUen, 
laBt sich die dazugehorige Adresse leicht berechnen: 

Adresse = (n-l)*8 + &HF400 

Eine entsprechende Funktion lautet also 

35 DEFFN ADR(N%)=(N%-1) * 8 +&HF400 

und eine dazugehorende INPUT- An weisung: 



10 FUNKTION ZUM FESTSTELLEN GESETZTER 

BZW. NICHT GESETZTER BITS EINER ZAHL 
20 '»♦* ANFANG DES DEFINITIONSTEILS»»»» 
3IB DEFFN BIT (Z'/i, X7.» =SGN(ABS (PEEK (ZX) AND (2CXX) 

) > 
35 DEFFN ADR (NX) = (NX-l ) »8+8(HF4E)B 
40 '**» ENDE DES DEFINITIONSTEILS ♦»»**» 
50 GOTO 100 ; 'UEBERSPRIN6EN DES UNTER- 

PRDGRAMMS 
60 FOR Ty.s=7 TO STEP -1 
70 PRINT FNBIT(X,TX) ( " "( 
90 NEXT TV. 
90 RETURN 
100 

110 INPUT"DAS WIEVIELTE FREI DEFINIERBARE ZEICHE 
N ";NX 

111 IF N%>12B THEN PRrNT"ES GIBT NUR I2S SOLCHER 

ZEICHEN" I GOTO 110 

112 FDR X=FN ADR(N7.) TO FN ADR (NX) +7 

113 60SUB 60! PRINT! PRINT 

114 NEXTX 



Abb, 3.10: Auslesen eines Zeichens 
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Schon konnen Sie sich alle definierten Zeichen auf dem Bildschirm ausge- 
ben lassen. In Abb. 3.11 finden Sie eine entsprechende Bildschirmaus- 
gabe. 
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Abb. 3-11: Bildschirmausgabe zum Programm in Abb. 3.10 



Von Konvertierungsroutinen kommen wir nun zu einer etwas interessan- 
teren Form von definierten Funktionen. 

Sicher kennen Sie das Problem, da6 Sie mit einem Bekannten am Telefon 
einen Termin ausmachen wollen, der irgendwann auf die nachsten zwei 
Oder drei Wochen datiert ist. 

Die obligatorisclie Frage, die dann meist am einen oder anderen Ende der 
Leitung gestelit wird, lautet: „Was fur ein Wochentag ist das?" oder „Wie 
viele Tage sind as noch bis dahin?" 

In der Regel beginnt dann die erfolglose Suche nach einem Kalender oder 
kompliziertes Kopfrechnen, so daB Sie die Moglichkeit, ein solches Pro- 
blem vom Rechner losen zu lassen, sicher mit erheblichem Arbeitsauf- 
wand und einem langen Programm in Verbindung bringen . Dies ist kei- 
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DEF FN DA(TT, MM, JJ ) -NOT ( (TT< 1 ) OR (TT>31) 
OR (MM<1) OR (MM>12) OR ( (TT>3a) AND < CM«=2 
) OR <MM-4) OR (MM=6) OR (MM=9) OR (MM»H))) 
OR ((TT>29> AND (MM=2> ) OR t (TT=29> AND ( <M 
M-2) AND ({JJ/4><> INT(JJ/4> ) ) > ) 




80 


DEF FN WT(TT, MM, JJ) =JJ»36S+INT ( (JJ-I ) /4> + ( 
MM-1 ) «28')-VAL (MID* ("00030306081 1 131619212426" 
,(MM-1)»2+1, 2> )-( {MM>2>ftND( (JJ AND NOT -4)= 






0) > +TT 





Abb. 3.12: Funktion zur Ermittlung eines Zeitraums 



nesfalls so. Es gibt eine Funktion, die die ganze Problematik von Schalt- 
jahren, Monaten mit 31 , 30 und 28 Tagen von 1901 bis 2099 erfaBt hat. In 
ahnlicher Form findet diese Funktion in Digitaluhren Anwendung. Wenn 
Sie das Programm mit dieser Funktion starten und anschlieBend 

PRINT FN WT(17,12,1983) 

eingeben, ennittelt diese Funktion die Anzahl der Tage seit dem 
1.1.0000: 

724641 

READY 

> 

Daraus lafit sich eine Menge ableiten: die noch verbleibenden Tage bis 
Weihnachten (das ist die Differ enz zwischen zwei Terminen, namlich dem 
24. 12. und einem weiteren Datum) oder, mit Hilfe einer weiteren Funk- 
tion, der Wochentag eines beliebigen Datums: 

20 DEFFN T$(Z!)=MID$("FrSaSoMoDiMiDo", 
{Z!-INT{Z!/7)*7)*2+1,2) 

Nun wird der Rechner, wenn Sie wissen woUen, welcher Wochentag der 
31. 10. 1983 war und 

PRINT FN T${FN WT(31 ,10,1 983)) 

eingeben 

Mo 

READY 

> 



72 Mein Colour-Genie 



ausgeben. Wie Sie diese Funktion in eigenen Programmen anwenden 
konnen, soUen die Beispiele in Abb. 3.13 bis Abb. 3.16 verdeutlichen. 



10 CLEAR 2000 

20 'Anwendungsbeispiel ; 

Arbeiten mit Funktionen 

30 'DAS LEBENSALTER IN TAGEN 

40 

50 DEF FN DA<TT» MM, JJ) -NOT ( (TT< 1) OR (TT>31) 
OR (MM<1) OR <riM>12) OR <CTT>30) AND ( (MM=2 
) OR tMM«4) OR CMM-6) OR <MM=9) OR <MM=11))) 
OR {(TT>29) AND <MM=2)) OR (<TT=29) AND ( (M 
M=2> AND {(JJ/4)<> INT(JJ/4> ) ) > > 

60 '-1 bedeutet; Es gibt ein salches Datum 

70 ' bedvutet: Das Ddtum gibt as nicht 

B0 DEF FN WT(TT, MM, JJ) »JJ»365+INT { ( JJ-1 ) /4) + ( 
MM-1 ) *28+VAL (MID* ( "00030306091 113161 92 I 2426" 
,{MM-1)*2+1, 2) )-( (MM>2)AND( (JJ AND NOT -4)= 
0J )+TT 

90 'Anzahl Tage seit 1.1.0000 

91 DEF FNT*(2! ) =M1D» ( "FrSaSoMoDiMiDo" , (Z!-INT{Z 
!/7)»7)*2+l,2) 

92 'Uochentag 

110 INPUT"Bitte Eingabe 

des TagesdatumsfTTIIMJJJJ) :";T« 
120 IF LEN(T*)<>8 THEN 110 
130 GOSUG 150 
140 GOTO 210 

150 'Ermi ttlung von Tag ,Monat ^ Jahr 
160 TT=VALtLEFT»(T*, 2> > 
170 MM=VAL(MID*(T*, 3, 2) > 
laS JJ=VAL(RIBHT*(T*, 4> > 
200 RETURN 
210 IF FN DA<TT, MM» JJ)=0 THEN PRINT"Ein solche 

s Datum gibt es nicht. " s F0RT=1 TO 1000! NEXTTs R 

UN 
220 HEUTE=FN WT(TT» MM, JJ) 
230 INPUT"Bitte das Gaburts- 

datum ( TTMMJJ ) i " | T* 
240 GOSUB 150 
245 IF FN DA(TT, MM, JJ)=0 THEN PRINT"ein solche 

5 Datum gibt es nicht. ":F0RT=1 TO 1000: NEXTTsR 

UN 
250 GEBURT=FNWT ( TT , MM , J J ) 
260 ALTER=HEUTE~GEBURT 
270 IF (ALTER/365) >90 THEN PRINT"Nun kommen Sie! 

Das nimmt Ihnen keiner ab." 
280 PRINT"Sie sind "jALTER;" Tage alt." 



Abb. 3.13: Programm zur Berechnung des Lebensalters 



Einsatz als Tischrechner 
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Abb. 3.14: Bildschirmausgabe zum Programm in Abb. 3.13 



IB 
20 

30 

40 
50 



60 
70 
80 



90 
91 

92 

100 

110 

120 



CLEAR 2000 
'AnMendungsbei spiel : Arbeiten mit Funktionen 



Ermittlung des Tagesdat 



uffls 



DEF FN DA(TT, MM, JJ) -NOT < (TT< 1 > DR <TT>31) 
OR (MM<1) OR (MM>i2) DR C(TT>30) AND ( (MM=2 
) OR (MM=4) OR (MM-6) OR (MM-9) OR (MM-11>>) 
OR t(TT>29> AND (MM=2) ) OR < (TT-29) AND (CM 
M=2) AND ;(JJ/4)<> INT{JJ/4) ) ) J ) 
'-1 bedeutet: Es gibt sin salches Datum 
' bedeutet: Das Datum gibt es nicht 
DEF FN WT(TT, MM^ JJ) -JJ*3t5+INT < < JJ-1 ) /4J + ( 
MM- 1 > *29+VAL t M I D* ( " 0B03030A0B 1 1 1 3 1 6 192 1 2426 " 
,{MM-1>»2+1, 2) )-< <MM>2)AND( (JJ AND NOT -4)= 
0M+TT 

'Anzahl Tage seit 1.1.0000 

DEF FNT«(Z! ) =MID» ( "FrSaSoMoDiMiDo" , (Z!-INT(Z 
'. /7)»7)«2+l,2> 
' Wachentag 
CLB 

INPUT" Bitte Eingabe des Tagesdatums <TTMMJJJJ 
) 1 " J T* 
IF LEN(T*)<>8 THEN 110 



Abb. 3.15: Programm zur Ermittlung des Wochentags 
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i3ta 

140 
150 
160 
170 
1B0 
200 
210 



220 
230 

240 



GQSUB 150 
GOTO 210 

'Ermittlung von Tag jMonat , Jahr 
TT=VftL<LEFT*(T*, 2> ) 
MM=VftL{MID*(T#, 3» 2)) 
JJ-VAL(RIGHT#tT*T 4)) 
RETURN 

IF FN DA<TT, MM, JJ)-a THEN PRINT-'Ein solchi 
s Datum gibt es nlcht.": FORT=1TO1000: NEXTTs 
RUN 

HEUTE=FN WT(TT, MM, JJ) 
T*=FNT»{HEUTE) 

PRINT"HeutB habsn wir "iT*;" ,dBn"; TT; " . " j Mh 
; " . " i J J 



Abb, 3.15: Programm zur Ermittlung des Wochentags (Fortsetzung) 




Abb. 3.16: Bildschirmausgabezum Programm in Abb. 3.15 



Zu diesem Zeitpunkt ist allerdings noch nicht gewahrleistet, daB, wenn 
Sie das Programm in Abb. 3.11 starten, auch ein Datum eingegeben wird, 
das existiert. Ihr Colour-Genie berechnet den 31.2.1811 genauso wie den 
66.1.1999 -nurfalsch. 



Einsatz als Tischrechner ^ 



Bevor Sie diese Problematik in Form einer Funktion erfassen und so der- 
art unsinnige Eingaben verhindern konnen, mussen Sie sich erst einmal 
Gedanken dariiber machen , wann ein Datum zulassig ist und wann nicht. 

Zuerst einmal ist ein Datum unsinnig, wenn der Wert TT fiir den Tag klei- 
ner als 1 oder groBer als 31 ist; 

(TT < 1) OR (TT > 31) 

Das gleiche gilt fiir den Monat MM, wenn hier Werte kleiner als 1 oder 
groBer als 12 auftauchen: 

(MM < 1) OR (MM > 12) - 

Weiterhin haben der April, Juni, September etc. nur jeweils 30 Tage. 
Dies kann folgendermaBen erfa6t werden. Das Datum gibt es nicht, wenn 
der Tag TT groBer ist als 30 und gleichzeitig der Monat MM = 2 oder 4 
oder 6 oder 9 oder 11, also 

((TT> 30) AND ((MM =2) OR (MM=4) OR (MM=6) OR (MM=9) OR 

(MM=11)) 

Nun folgt noch der verflixte Februar, der Monat MM=2. Hier Hegt immer 
dann ein Schaltjahr mit 29 Tagen vor, wenn die Jahreszahl J J ohne Rest 
durch 4 teilbar ist. Ist dies nicht der Fall, dann ist 

(JJ/4) ungleich INT(JJ/4) 

das Datum also als unzulassig anzusehen, wenn 

a) (TT>29) AND (MM=2) 

b) ((Tr=29) AND ((MM=2) AND ((JJ/4) <> INT(JJ/4)))) 

All diese Bedingungen, miteinander verkniipft, ergeben die gesuchte 
Funktion 

50 DEF FN DA(TT,MM,JJ) = N0T((TT<1 ) OR {TT>31 ) OR (MM<1) OR 
(MM>12) OR ((TT>30) AND ((MM=2) OR (MM=4) OR (MM=6) OR 
(MM=9) OR (MM=11))) OR {(TT>29) AND (MM=2)) OR ((TT=29) 
AND ((MM=2) AND ((JJ/4) <>INT(J J/4))))) 

Diese Funktion finden Sie in den Beispielen Abb. 3.11 bis 3.14. Sie ist 
eine komplizierte Variation dessen, was Ihnen unter Kapitel „Eigene 
Funktionen" als Funktion zur Priifung logischer Bedingungen vorgestellt 
wurde. Aus dem Ergebnis, oder ungleich 0, kann hier direkt abgelesen 
werden, ob ein untersuchtes Datum existiert oder nicht: 

IF (FN DA{TT,MM,JJ)) THEN GOTO ....: 'EINGABEFEHLER 

Lassen Sie sich durch die kompliziert erscheinenden Definitionsteile der 
Funktionen nicht irritieren. Definieren Sie sie irgendwo am Anfang Ihres 
Programms, und verwenden Sie diese Funktionen genauso wie andere, 
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die Ihnen im Microsoft-BASIC zur Verfugung stehen, sei es MID, ATN 
Oder SQR, iiber deren komplizierte Abarbeitungsphasen im Interpreter 
Sie sich bestimmt auch nicht sonderlich viele Gedanken machen. Eine 
definierte Funktion solcher Komplexitat wie FN WT oder FN DA soil als 
Hilfsmittel, als Mittel zum Zweclc auf dem Weg des Programmierens die- 
nen. Es reiciit, wenn Sie diesem Kapitel die Anregung entnehmen, daB es 
da im BASIC etwas gibt, was DEF FN heiBt, womit sie experimentieren 
und vielleicht interessante Effekte in eigenen Programmer! erzielen kon- 
nen. In diesem Sinne sollen auch die in diesem Kapitel vorgestellten 
Funktionen und Demoprogramme zu sehen sein: Als Ergebnisse des 
Experimentierens . 
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Kapitel^ 

Eine generelle Eingabe- 
routine zur Textverarbeitung 

Die Fahigkeit zur Verarbeitung von Zeichenketten ist eine wesentliche 
Ursache fiir die Leistungsfahigkeit von Mikrocomputera. Rechner der 
friiheren Generation, die mit Programmiersprachen wie ALGOL arbei- 
teten, verfiigten nur eingeschrankt uber entsprechende Algorithmen und 
engten daher ihre Einsatzmoglickeit selbst erheblich ein. 

Obwohl mit heutigen Rechnern wie dem Colour-Genie derartige Pro- 
bleme der Vergangenheit angehoren, heiBt dies noch lange nicht, da6 das 
„allwissende Universalgenie" Rechner all Ihre Eingaben registrieren 
Oder auf Fragen Patentlosungen anbieten kann, 

Versuchen Sie doch einfach einmal, Ihrem Colour-Genie den Spielstand 
des FuBballspiels „Arniinia Bielefeld gegen Bayern Miinchen" zu vermit- 
teln: 




Ahh. 4.1: Eingabeprobleme bei der INPUT-Anweisung 
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Beantworten Sie diese Frage mit einer beliebigen Eingabe wie 4:2 oder 
1:3, und beachten Sie das Ergebnis. Eine entsprechende Bildschirm- 
ausgabe finden Sie in Abbildung 4.1. 

Da kaum zu erwarten ist, daB Ihr Colour- Genie gegen den einen oder 
anderen Verein eine spezielle Antipathie hegt und aus diesem Grunde 
durch ein „?Extra ignored" lauthals seinen Protest gegen die Eingabe 
kundtut, scheint es Zeichen zu geben, die auch beim Einlesen einer Zei- 
chenkette nicht vorbehaltlos iibernommen werden. Dies bestatigt auch 
das Colour- Genie-Handbuch auf Seite 29: 

„Ein nach einer INPUT- Auf forderung eingegebener Doppelpunkt 
bewirkt in jedera Fall, daB alles, was danach konunt, nicht iibernonunen 
wird." 

Das Problem, einer Zeichenkettenvariablen auch solche Zeichen wie , ; : 
in einer Eingabe zuzuweisen, laBt sich nicht allein durch die INPUT- 
Anweisung losen. (Es gibt zwar eine LINE INPUT- Anweisung, bei der 
dieses Problem nicht auftritt. Sie ist jedoch nur unter Colour-Disk- 
BASIC verfiigbar.) 

Eine Alternative findet sich in der INKEY$-Funktion, die auf Seite 96 
Ihres Handbuchs beschrieben ist. Immer, wenn das Colour- Genie auf ein 
INKEY$ trifft, fragt es fiir Sekundenbruchteile die Tastatur ab, ob dort 
eine Taste betatigt wurde: 

10Y$=INKEY$ 

Ist dies der Fall, wird der Variablen Y$ eine Zeichenkette mit der Lange 1 
zugewiesen, die dem ASCII-Zeichen der betatigten Taste entspricht. 
Wurde zum Zeitpunkt der Abfrage keine Taste betatigt, erhalt die Varia- 
ble Y$ keine Information. Man sagt, Y$ enthalt eine leere Zeichenkette, 
was nichts anderes bedeutet als 

Y$ = "" 

Um nun sicherzugehen, daB ein Zeichen von der Tastatur eingelesen 
wird, mu6 so lange eine Schleife durchlaufen werden, bis der Rechner 
eine Betatigung der Tastatur registriert hat. Dies ist genau dann der Fall, 
wenn die Variable Y$ eine Information enthalt: 

20 IF Y$="" THEN GOTO 10 

30 REM VERARBEITUNG DER INFORMATION IN Y$ 

In Zeile 30 beginnt nun eine Verarbeitung der eingelesenen Information, 
d. h. des eingelesenen Zeichens. Zuerst wird dieses auf dem Bildschirm 
ausgegeben 

40 PRINT Y$; 
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um dann als zuletzt eingegebenes Zeichen an das Ende einer Zeichen- 
kette gehangt zu werden, die alle schon bisher eingegebenen Zeichen 
erfafit hat: 

50 IN$ = IN$ + Y$ 
60 GOTO 10 

VerdeutHchen Sie sich dies noch einmal an folgendem Ablaufplan: 



c 


START 


1 


i 




Abfragen 
der Tastatut 





ir 



nein 




ErganzencterZeichen- 
kette, in der atle bis- 
her eingegebenen Zei- 
chen erfaSt sind, um 
das neue Zeichen. 
Ausgabe des Zeichens 
auf dem Bildschirm 



Abb. 4.2: Ablaufplan einer Tastaturabfrage 



Versuchen Sie nun anhand dieses Ablau^lans Vorteile und Schwachstel- 
len dieses Systems zu erkennen: 



Vorteile 

* Es werden alle Zeichen, die von der Tastatur eingegeben werden, bear- 
beitet und einer Zeichenkette zugewiesen. 

* Die Obergabe eines eingegebenen Zeichens an die Variable erfolgt 
sofort nach Betatigung einer Taste, nicht, wie bei der INPUT- An wei- 
sung, erst nach Driicken der RETURN-Taste. 
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* Die Lange der fiir die Eingabe zulassigen Zeichen kann begrenzt wer- 
den (z. B. durch IF LEN(IN$)=5 THEN GOTO XXX). 

* Bestimmte Zeichen konnen als unzulassig deklariert werden (z. B. IF 
Y$ = "0" THEN GOTO 10). 



Nachteile 

* Es ist kein Cursor auf dem Bildschirm zu sehen. 

* Es fehlt eine Programmzeile, in der dem Rechner mitgeteilt wird, daB 
bei Eingabe eines bestimmten Zeichens (z. B. RETURN) der Einlese- 
vorgang beendet ist. 

* Auch Steuerzeichen, wie z. B. der Linkspfeil, werden an die Zeichen- 
kette iibergeben. 

Wir woUen nun Schritt fiir Schritt anhand des Ablaufplans die Nachteile 
einer INKEY$-Eingaberoutine beheben und ein paar der Vorziige ein- 
bauen. 

Als erster Nachteil erwies sich, daB kein Cursor auf dem Bildschirm zu 
sehen war. Dafur gibt es ein Steuerzeichen, das Sie auf Seite 145 Ihres 
Handbuchs finden. Es heiBt „Cursor ein" und hat den ASCII- Code 14. 
Geben Sie NEW ein, und testen Sie anhand des Programms in Abb. 4.4, 
wie Sie mit Hilfe einer PRINT-Anweisung einen blinkenden Cursor auf 
dem Bildschirm erzeugen: 

10CLS 

20 PRINT CHR$(14); 

30 GOTO 30 

Was nun fehlt, ist eine Tastaturabfrage. Dafur eignet sich Programm- 
zeile 30: 

30 Y$=INKEY$ :tFY$<>""THEN GOTO 100 

Der nachste Schritt ist nun, eine Programmzeile 100 zu erstellen. 

100 REM ZU DIESER ZEILE WIRD VERZWEIGT, WENN EIN 

ZEICHEN AUF DER TASTATUR EINGEGEBEN WURDE. 

Hinter der Zeile 100 erfolgt nun die Bearbeitung des eingegebenen Zei- 
chens. Nachteil 1 bei der Verwendung von INKEY$-Routinen, ein feh- 
lender Cursor, ist an dieser Stelle schon behoben. 

Der nachste Nachteil in der Liste ist der, daB der Rechner bei Verwen- 
dung einer INKEYS-Routine von sich aus nicht in der Lage ist, zu erken- 
nen, wann eine Eingabe abgeschlossen ist. 

Eine Eingabe soil in der Regel dann zu Ende sein, wenn 
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a) die RETURN-Taste betatigt wird oder 

b) die Lange der Eingabe auf eine bestimmte Anzahl von Zeichen 
begrenzt ist und diese bereits eingegeben wurden. 

Wenn Sic also in einem Programm z. B. die Eingabe einer Postleitzahl 
wiinschen, so ist diese als erfolgt zu betrachten, wenn Sie 4 Ziffern einge- 
geben haben, da es in Deutschland keine 5- oder 6-stelligen Postleitzahlen 
gibt. Genauso mussen Sie aber auch die Moglichkeit schaffen, die Ein- 
gabe auch schon friiher beenden zu kdnnen, da die Eingabe einer 8 fiir 
Miinchen oder 43 fiir Essen als Postleitzahl voUkommen ausreichend ist. 

Um dies zu bewerkstelligen, mussen Sie das Programm mit einem Zei- 
chenzahler ZZ versehen, der jedesmal, wenn der Variablen Y$ in der 
INKEY$-Routine ein Wert iibergeben wurde, aktualisiert wird. 

Dieses „Aktualisieren" mu6 so aussehen, da6 der Zahler jeweils um 1 
erhoht wird, wenn es sich im Sinne der Eingabe um ein zulassiges Zeichen 
handelt, d. h. wenn Buchstaben, Zahlen oder Sonderzeichen eingegeben 
werden. Bei Eingabe von Steuer- bzw. Korrekturzeichen, wie z. B. dem 
Pfeil nach links (Backspace, letztes Zeichen loschen), muB der Zahler 
entsprechend vermindert werden. Im ersteren Falle wird das Zeichen in 
Y$ jeweils an die Zeichenkette, in der alle bisher eingegebenen Zeichen 
erfaBt sind, angehangt: 

INS = IN$ + Y$ 

Im letzten Falle (Korrektur) muB das letzte Zeichen aus der Zeichenkette 
IN entfernt werden: 

IN$ = LEFT$(IN$,LEN(IN$)-1) 

Durch die LEFT$-Anweisung wird, wie Sie Ihrem Handbuch auf Seite 90 
entnehmen konnen, eine Zeichenkette wie IN$ „rechts abgeschnitten" . 

Nehmen wir an, IN enthielte vor Aufruf der LEFT$-Funktion die Zei- 
chenkette "12345". Das sind 5 Zeichen. Somit ist LEN(IN$)=5. Nun 
wird in der o. a. Anweisung der Variablen IN$ eine Zeichenkette zuge- 
wiesen, die LEN(IN$) — 1 Zeichen lang sein soil. Wenn z. B. 

IN$="12345"istund 

LEFT$(IN$,LEN(IN$)-1) (LEN(IN$)-1 entspricht5-l = 4) 

erzeugt werden soil, erhalt man als Ergebnis die ersten 4 Zeichen aus 
IN$, also "1234". Durch 

IN$=LEFT$(IN$,LEN(IN$)-1) 

wird also aus dieser Zeichenkette jeweils das letzte Zeichen entfernt. Dies 
wollen wir nun in unerem Ablaufdiagramm in Abb. 4.3 beriicksichtigen: 

iibergeben wird die maximale Wortlange WL = n Zeichen. 
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1 , Anfangswerte setzen 
(5010) 



( Start ^ 



2Z = 

IN$ = "" 



I 



PRINT 

CHR$ (14); 



I^O 



2. Tastaturabfrage 
(5020) 



3. Weiterverarbeltung 
(5030ff.) 



3.1 Korrekturzeichen 
(5040) 



3.2 unzulassiges 
Zeichen 

(5070) 



± 



Y$ = INKEY$ 



JA 



o 



4. BS-Ausgabe (5080) 

5. Zeichenkettenerganzung 
(5090) 

6. Zeichenzahler 
up date 
(5100) 



7. Verlassen d. Routine 
(5200) 



„,) = Zeilennummer 




NEIN 
I PRINT Y$; I 

i 

1 IN$ = IN$+Y$ 1 

I zz = zz+i [ 



IN$ = LEFTS 
(IN$,LEN(1N$)-1) 

~1~ 



NEIN 




ZZ = ZZ-1 



PRINT Y$; 



Abb. 4.3: Ablaufdiagramm einer Tastaturabfrageroudne 
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50010 'TASTATUREINGABERDUTINE »•*•**♦»•»« 

5B10 ZZ=0: IN*=""!PRINTCHR*(14) } 

5020 Y*=INKEY*: IFV*=""THEN5020 

5030 IFY*=CHR*<13>THEN 5200 

5040 IFy*< >CHR* (S) THEN5070 

5050 IFZZ>0THEN IN*=LEFT* { IN*,LEN< IN*) -1 ) : ZZ^ZZ-l 

sPRINTY*; 

5060 GOTO 5020 

5070 IF y«<" " OR Y*>"z" THEN 5020 

5080 PRINTY*; 

5090 IN*=IN*+Y* 

5100 ZZ=ZZ+1 

5110 IF ZZ-WL THEN 5200 

5120 GOTO 5020 

5200 RETURN 

5210 '*****-tnn^innt*-tnn¥-innnnnt*innt***m-***w* 



Abb, 4.4: Das dazugehorige Programm 

Um diese Anweisungsfolge mehrmals in einem Programm verwenden zu 
konnen, empfiehlt es sich, sie in ein Unterprogramm zu fassen. Immer, 
wenn eine Eingabe erfolgen soil, wird durch ein 

GOSUB 5000 

zu der Unterroutine verzweigt. Obergeben wird uber die Variable WL die 
Anzahl der maximal fur die Eingabe zulassigen Zeichen. Wie Sie dem 
Beispiel in Abb. 4.5 entnehmen konnen, sind dies 4 Zeichen fiir die Post- 
leitzahl. Wenn Sie nun versuchen, eine 5-stellige Postleitzahl einzugeben, 
„streikt" der Rechner. Angenehmerweise tut er dies jedoch, ohne eine 
Fehlermeldung auszugeben; Der Rechner nimmt weitere Zeichen einfach 
nicht an. 

Es ist uns also gelungen, eine Eingabe auf eine bestimmte Lange zu 
begrenzen und die Eingabe „unerwunschter Zeichen", wie Pfeil hoch, 
Pfeil rechts etc. durch Programmzeile 5070 der Routine zu unterbinden; 

5070IFY$<" " OR Y$>"z" THEN 5020 

Schauen Sie in der ASCII-Tabelle auf Seite 145 Ihres Handbuchs nach, 
und iiberpriifen Sie, welche Zeichen hier bei der Eingabe vom Rechner 
ignoriert warden. Essind — vielleicht unabsichtlich auf derTastaturbeta- 
tigte — Steuerzeichen wie die oben erwahnten und Grafikzeichen . Beide 
haben in einer Postleitzahl nichts zu suchen. 

Bei anderen Eingaben mag es Ihnen wiinschenswert erscheinen, gerade 
Grafikzeichen oder z. B. nur bestimmte Grafikzeichen fiir die Eingabe 
zuzulassen: 

5070 IF Y$<CHR${128) OR Y$>CHR$(191) THEN 5020 
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la PR I NT" W IE LAUTET DIE PQSTLEITZAHL 

20 WL=4:G0SUB S000 

3e IN=VAL(IN*) 

40 PRINT"DK. POSTLEITZAHL "(IN 

50 END 

60 



5000 TASTATUREINGABEROUTINE *»****»**»» 

5010 ZZ=0: IN»=»"":PRINTCHR«(14) ; 

5020 Y»= I NKEY* : I FYS= " " THEN5a20 

5030 IFY*=CHR»(13)THEN 5200 

5040 IFV»<>CHR*(a)THEN5a70 

5050 IFZZ>0THEN IN*=LEFT* ( IN*,LEN t IN*) -1 ) i ZZ=ZZ-1 

:PR1NTY*; 

S060 GOTO 5020 

5070 IF Y*<" " OR Y*>"z" THEN 5020 

5080 PRINTY*} 

5090 IN*=IN*+Y* 

5100 ZZ-ZZ+1 

5110 IF ZZ=WL THEN 5200 

5120 GOTO 5020 

5200 RETURN 

5210 ' *»*«-*##»«***##««««*****•«*«**•«**« 



Abb. 4.5: Einlesen von Werten mit der Eingaberoutine 



Genauso ist es auch moglich , nur Zahlen oder nur groBe Buchstaben fur 
die Eingabe zuzulassen: 

5070 IF Y$<"0" OR Y$>"9" THEN 5020 

oder 

5070 IF Y$<"A" OR Y$>"Z" THEN 5020 

Das Problem, das sich hier bei haufiger Verwendung der Eingaberoutine 
im gleichen Programm stellt, ist, daB Sie sich fiir eine bestimmte Uberprii- 
fung in der Zeilennummer 5070 entscheiden miissen und die derart fixier- 
ten Eingabebeschrankungen fiir das ganze Programm verbindlich sind. 
Dazu spate r mehr. 

Der Grund, weshalb man seiche Abfragen in eine Eingaberoutine mit 
einbaut, ist am besten mit einem Sprichwort zu beantworten: Ein Ubel 
bekampft man an der Wurzel. Stellen Sie sich vor, wie kompliziert sich die 
(nachtragliche) Uberpriifung einer Zeichenkette gestaltet, die nur Hexa- 
dezimalwerte enthalten soil, also die Ziffern 0— 9 und A— F. In der Einga- 
beroutine ist das eine Zeile: 

5070 IF Y$>"F" OR (Y$<"A"AND NOT (Y$>="0" AND Y$<"9")) 
THEN 5020 
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In einer Zeichenkette mu6 jedes einzelne Zeichen (nachtraglich) in einer 
Schleife auf diese Bedingung hin gepriift werden. Das bedeutet iiberfliis- 
sige Vergeudung von Speicherplatz und Rechenzeit. Geschieht eine sol- 
che Abfrage nicht, riskieren Sie das Auftreten eines Fehlers. Es ist dann 
nicht auszuschlieBen, dafi Ihr Programm nicht mehr lauft oder falsche 
Ergebnisse liefert. 

Je komfortabler eine solche Eingaberoutine aufgebaut ist, desto mehr 
„ Arbeit" kann Sie dem Programmierer abnehmen. Komfortabel bedeu- 
tet jedoch auch komplex, denn diese Unterroutine mixfite um weitere 
Bestandteile erweitert werden. Dies ist jedoch nur dann sinnvoll, wenn 
ein Programm viele verschiedenartige Eingaben erfordert oder z. B. mit 
sog. Eingabemasken gearbeitet wird. Eine Eingabemaske ist ein „Biid" 
auf dem Bildschirm, wo die Stellen, an denen Eingaben gemacht werden 
soUen, ausgepunktet sind, wie z. B. in folgender Bildschirmmaske: 




Abb. 4,6: Bildschirmmaske 



Eine Eingaberoutine, die Eingaben iiber derartige Bildschirmmasken 
unterstutzt, finden Sie in Abb. 4.7. Ihr detailUerter Aufbau soil hier nicht 
beschrieben werden. Sie ist jedoch den bisher beschriebenen Eingaberou- 
tinen ahnhch. Ihre zusatzlichen Fahigkeiten bestehen insbesondere darin, 
da6 

1. iiber die Variable FL gekennzeichnet wird, welche Zeichen im Sinne 
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der Eingabe zulassig sind, 1st FL negativ, konnen nur Ziffern und Vor- 
zeichen eingegeben werden. 1st FL positiv, werden auch Zeichenket- 
ten vom Rechner akzeptiert. Der Wert, der in WL vorgegeben wird 
kennzeichnet nach wie vor die maximale Eingabelange. 

2. Wird das Zeichen <@> betatigt, setzt der Rechner die Variable KF 
die sonst immer den Wert besitzt, auf 1 und unterbricht die gegen- 
wartige Eingabe. 

Schauen Sie sich die Bildschirmausgabe in Abb. 4.8 an. Hinter dem 
Text „Vorname:", der durch 

40 PRINT "Vorname: "; 

ausgegeben wird, stehen 15 Punkte, die die Maximallange der Eingabe 
kennzeichnen: 

120 PRINT @ 131 ,;:FL=15:G0SUB 230: ... 

An dieser Stelle erfolgt die Verzweigung zur Unterroutine . Durch FL= 15 
werden maximal 15 Zeichen (Buchstaben etc.) verarbeitet und der Varia- 
blen IN$ zugewiesen. Stunde in Zeile 120 FL= — 15, so konnten nur Zah- 
len eingegeben werden. Dies ist jedoch fiir die Eingabe eines Vornamens 
unsinnig. Bei der Eingabe der Postleitzahl (im Programm Abb. 4.8 
Zeile 140) erweist sich auch diese Fahigkeit der Unterroutine als zweck- 
maSig. 

In jeder Zeile wird nun durch 

... IF CF-1 THEN GOTO... 

im Falle einer Betatigung der <@>-Taste eine emeute Eingabe eingelei- 
tet und die gegenwartige unterbrochen. Verzweigt der Rechner zur Fol- 
gezeile, ist eine Eingabe erfolgt. 

Auf diese Weise wird eine komplette Bildschirmmaske versorgt. 



haze 

600 1 
61902 
6003 
6004 
6005 
6006 
6007 
6008 
6009 
6010 



Uebergabepar amet er ; 

FL=MAXIMALLAENSE DER ZEICHENKETTE. 
Ist FL negat i v, kaennen nur 
Zahlen, keine Buchstaben oder 
Sonderzelchen eingegeben Merden. 

Rueckl auf parameter ; 

CF=1 DIE EINGABE WURDE UNTERBROCHEN. 

CF=0 Die Eingabe hat Gueltigkeit. 

WD=0 Der eingegebene ZahlenMert ist 
ganzzahl ig. 



Abb. 4. 7: Eine Tastatureingaberoutine, die auch Bildschirmmasken unterstutzt 



Eine generelle Eingaberoutine zur Textverarbeitung 
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6012 
6013 
6014 
6015 
6016 
6017 

6018 
6019 
6020 
6021 
6031 
6041 
6051 
6061 
7990 
7999 
B000 

S001 

8002 
8003 

8004 
8005 
8006 
B007 

8008 



8010 

8011 
8012 

8013 
8014 

8015 

8016 

8017 
8018 
8019 



WD=1 Der eingegebene Zdhlenwert 1 st 

nicht ganzzahlig. 
WS=0 Es wurde eine positive Zahl 

eingegeben. 
WS=1 Es wurde eine negative Zahl 
eingegeben. 
Die eingelesenen Werte stehen immer in der 
Variablen 

IN* 
Beispielau-f riif : 
10 FL=-4:GOSUB8000!lF CF=1 THEN 

PRINTe20O,"EingabekarrektLir"i : GOTO 10 
ELSE WERT*=IN* 



STOP 

HIER BEGtNNT DIE EINGABEROUTINE 
CF-0: PRINTCHR* ( 14> | i IN«=" " : Y«-INKEY*i WD-0t WS 
=WD!WL-WDi IFFL=WDTHENFL=t 
PRINTSTRINB*(A88<FL> ,". ") ( STRING* (ABS (FL> ,24 

>; 

Y*=INKEY*; IFY*=" "THEN8002 

IFY*< >CHR* ( 13) THENS005ELSEPRINTSTRING* (ABS (F 

D-WL," '•); 

RETURN 

IF Y*<>"e"THEN80a7 

CF=l! RETURN 

IFY»=CHR*(24)THENPRINTSTRINe*<WL,CHR«{24> ) ; * 

GOTD8000 

IF Y*<>CHR*(8>THENaai2 ELSE IF WL=0THEN 8002 

ELSEPR I NTCHR* < 8 > } STR I NG* C ABS ( FL ) -WL , ■■."); ST 

RING*(ABS<FL)~WL,24) ; : IFFL>0THEN801O ELSE GO 

TO B011 

I N*=LEFT* ( I N« , LEN ( I N* ) - 1 ) 

WL=WL-1:GOTO8002 

IF ABS(FL)-WL THEN 8002 ELSE IF FL>0 THEN IF 

Y*>=" "AND Y*<"2"THENa017 
IF Y*=", "ANDWD=0THENWD=1:GOTOB017 
I F Y*= " , ■' THENPR I NTY* ; ; WL=WL+ 1 : GOTOa0 1 8 
I F < Y*= •' - " ORY*= " + " > ANDWS=0ANDWL=0THENWS= 1 : BO 
TO8017 

IFY«<"0" OR Y*>"9"THENe002 
PRINTY*} ; IN*=IN*+Y»:WL=WL+1 
IF ABS(FL)=1 THEN 8004 ELSE 8002 
' ENDE DER EINBABERQUTINE 



Abb, 4.7: Eine Tastatureingaberoutine, die auch Bildschirmmasken unterstUtzt 
(Fortsetzung) 
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1 

10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

160 

190 

200 

210 

220 

230 

799S 

7999 

8000 

8001 

8002 
8003 

8004 
8005 
QO06 
8007 

8008 



B010 
8011 
8012 

8013 
8014 
8015 

8016 
8017 

80 IB 
8019 



Anwendungsbei spiel Bi Idschirmmasks 
CLEAR 2000 

CLS:PRINT"<e> = EINGABE WIEDERHOLEN' 
PRINTsPRINT 
PRINT"Vorname 
PRINT"Nachname 
PRINT"PLZ 

PRINT "QRT " 

PRINT"TELEFON» " 

PRINT"Vorwahl : ." 

PRINT"Nummer i " 

'ENDE DER MfiSKE 

PRINT@131,i :FL=15!eDBUB 230! IF CF=1 THEN 12 
ELSE VN*=IN* 

PRINTai71,(iFL-15!BOSUB230»IF CF=1 THEN 130 
ELSE NN«<=IN« 

PRINTe211,;:FL=-4jG0SUB 230s IF CF=1 THEN 14 
ELSE PL*=IN* 

PRINT@251,; :FL=15!BOSUB230: IF CF=1 THEN 150 
ELSE 0*=IN* 
PRINTe331, i :FL=-6!B0SUB 230! IF CF=1 THEN 160 

ELSE yW**IN* 
PRINTa371,; :FL=-7(GOSUB230t IFCF=1 THEN 170 EL 
SE RN*=IN* 
PRINT:PRINT:PRINT 
'ENDE DER EINGABEN 

PRINT"FOLSENDE DATEN HURDEN EINGELESEN; " 
PR I NTVN* : PR I NTNN* ! PR I NTPL* , O* ; PR I NTVW* , RN$ 
END 

GOTO 8000 
STOP 

HIER BEGINNT DIE EINGABERDUTINE 
CF=0 : PR I NTCHR» ( 1 4 ) | : 1 N*= " " : V*= I NKEY* : WD=0 : WS 
=WD:WL=WD: 1FFL=WDTHENFL=1 
PRINTSTRING*(ABS(FL> ,". ") ; STRING* CABS (FL> ,24 

); 

Y«= I NKEY* s I F Y*= " " THEN8002 

IFY*< >CHR* ( 13> THEN8005ELSEPRINTSTR1NS* (ABS (F 

L)-WL," ")i 

RETURN 

IF Y*<>"e"THEN80a7 

CF=l! RETURN 

IFY*=CHR*{24>THENPRINTSTRING*<WL,CHRS(24> ) ; : 

GOTO8000 

IF Y*<>CHR*(9)THEN8012 ELSE IF WL=0THEN 8002 

ELSEPRINTCHR»(8> ; STRING* (ABS (FL> -WL, •'." ) ; ST 
RING»{ABStFL)-WL,24) !■- IFPL>0THENBB1O ELSE GO 
TO 8011 

IN*=LEFT* ( IN*»LEN ( INS) -1 ) 
WL=WL- 1 ! GOTO8002 
IF ABS(FL)=WL THEN 8002 ELSE IF FL>0 THEN IF 

Y«>=" "AND Y«<"z"THEN8017 
IF Y*=". "ANDWD=0THENWD=1)GOTO8017 
IF Y*=","THENPRINTY*; s WL=WL+1 : Q0T0801B 
I F ( Y*= " - " DRY*= " + " > ANDWS=0ANDWL=OTHENWS= 1 : GO 
T0B017 

1FY»<"0" OR Y»>"9"THEN8002 
PRINTY*; : IN»«1N«+Y«i WL=WL+1 
IF ABStFL>=l THEN B004 ELSE 8002 
' ENDE DER EINGABERDUTINE 



Abb. 4.8: Ein Anwendungsbeispiel mit Bildschirmmasken 
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Kapitel 3 

Tonerzeugung 
mit dem Colour-Genie 



5.1 DIE BEFEHLE PLAY UND SOUND , 

In Ihrem Colour-Genie befindet sich ein Soundgenerator. Ein Soundge- 
nerator ist ein Chip, mit dem Tone erzeugt warden konnen. Im Microsoft- 
BASIC stehen Ihnenzwei Anweisungen zur Verfiigung, um diesen Bau- 
stein anzusprechen: PLAY und SOUND. 

Mit PLAY wird ein Ton erzeugt, mit SOUND werden dessen Eigenschaf- 
ten verandert: 

PLAY(1,3,1,15) 

Wenn Sie nun am Lautstarkeregler Ihres Fernsehers drehen, horen Sie 
einen Ton, der der Note C entspricht. i 

(Sie konnen auch, um ein sauberes Tonsignal zu erhalten, iiber die Audio- 
Buchse an der Ruckwand des Coiour-Genie einen Verstarker anschlie- 
Ben.) Ein einmal programmierter Ton wird so lange ausgegeben, bis dem 
Soundgenerator eine Anweisung erteilt wird, diesen wieder abzustellen: 

PLAY (1,3,1,0) I 

Die Bedeutung der einzelnen PLAY-Parameter konnen Sie auf Seite 111 
Ihres BASIC-Handbuchs nachlesen. Sie sehen, da6 der Soundgenerator 
recht vielseitig einsetzbar ist. Um sich die Tonleiter in C-Dur ausgeben zu 
lassen, geben Sie folgendes Programra ein: 



10 -DIE C-DUR TONLEITER VOM TIEFSTEN 




BIS ZUM HOECHSTEN TON 




20 FDR 0=1 TO a : 'ALLE OKTAVEN 


- 


30 FOR T=l TO 7 : 'CDEFGAB 




40 PLAY(1,Q,T,15) 




50 FOR D=l TO 10: NEXT D 




60 NEXT T 




70 NEXT 



Abb. 5.1: Die C-Dur Tonleiter 
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Dies ist die verfugbare Tonpalette, die hier iiber Kanal 1 des Tonbau- 
steins ausgegeben wird. Der Soundgenerator verfiigt iiber drei solcher 
Kanale. Jeder kann getrennt angesprochen werden, mit verschiedenen 
Tonen, die dann, zusammen ausgegeben, z. B. einen Akkord lief era kon- 
nen: 



10 EIN AKKORD WIRD GESPIELT 
20 PLAY (1,4,1,15)5 'C AUF KANAL 1 
30 PLAY (2,4,3,15) I 'E AUF KANAL 2 
40 PLAY (3,4,5,15) : G AUF KANAL. 3 



Abb. 5.2: Spielen von Akkorden 

Jeden ausgegebenen Ton konnen Sie durch Eingabe von 

SOUND 7,63 

wieder abstellen. Tone oder Akkorde konnen Sie auch langsam ausklin- 
gen lassen, indem Sie die Lautstarke dezimieren: 



10 


FDR L 


= 15 TO 





STEP 


-1 






20 


PLAY 


(1 


,4.1 


,L) 


: C 


AUF 


KANAL 


1 


30 


PLAY 


(2, 


4,3 


,U) 


! *E 


AUF 


KANAL 


2 


40 


PLAY 


(3 


,4,5 


,L) 


; 'G 


AUF 


KANAL 


3 


50 


FOR E 


= 1 


TO 


lOiNEXT 


D: 


'VERZOEOERUNQ | 


60 


NEXT 


L 















Abb. 5.3: Dezimierung der Lautstarke 

Mit dem Soundgenerator lassen sich jedoch nicht nur Tone erzeugen. 
Auch sogenannte Effekte konnen in die Tonausgabe miteingebaut wer- 
den. So kann z. B. ein Ton nach bestimmten Vorgaben derart moduliert 
werden, daB sich Echohalleffekte erzeugen lassen oder da6 im Hinter- 
grund ein leichtes Meeresrauschen mitklingt. Wenn Sie sich mit solchen 
Dingen naher befassen woUen, miissen Sie sich das technische Handbuch 
zum Colour-Genie zur Hand nehmen. Dort ist auf Seite 21ff. der interne 
Aufbau des Soundgenerators beschrieben. Fiir den Fall, dafi diese Unter- 
lagen nicht ausreichen soUten, konnen Sie bei der Herstellerfirma des 
Soundgenerators ein 

USER- MANUAL zum Soundgeneratorbaustein AY-3-8910 

anfordern. Dort sind alle Eigenschaften des Bausteins und dessen Pro- 
grammierung beschrieben. Zum Testen der Effektroutinen steht Ihnen 
im Anhang des B ASIC-Manuals ein Programm zur Verfiigung. 
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5.2 EIN MUSIKINTERPRETER 

Wenn Sie einmal angefangen haben, ein Musikinstrument zu erlernen, 
haben Sie bestimmt irgendwo einige Notenblatter von Musikstticken. In 
Abb. 3.28 wird Ihnen ein Programm vorgestellt, mit dessen Hilfe Sie 
direkt in solchen Kompositionen Noten in den Rechner eingeben konnen, 
die dann vom Soundgenerator Ihres Colour- Genie gespielt werden. Die 
Befehle, die cjieser Noteninterpreter kennt, sind recht einfach aufgebaut: 

Zuerst einmal gibt es die Noten C,D,E,F,G,A,B und die Pause P. Hin- 
ter einer Note kann (mu6 nicht) eine Oktave angegeben werden, in der 
die entsprechende Note gespielt werden soil, wie z. B. : i 

C3,D5,E7 

Wird hinter der Note kein Zahlenwert vorgegeben, entspricht dies der 
Oktave 4. Wenn Sie also 

C,D,E,F,G 

eingeben, werden all diese Noten in der vierten Oktave gespielt. 

Um Halbtone anzusprechen (entsprechend den schwarzen Tasten auf der 
Klaviatur, s. a. S. Ill), wird an die entsprechende Note ein .#. ange- 
hangt. Beispiel: 

C3# spielt die Note cis in der 3. Oktave. 

Nun zur Tonlange. AUe bisher behandelten Eingaben erzeugen Tone, die 
genau einen Takt lang sind. Um halbe Noten, Viertel, Achtel, Sechzehn- 
tel etc. zu spielen, wird an die Note jeweils ein / und eine Zahl angehangt: 

C/2 entspricht einer Note von halber Tonlange; 
C/4 entspricht einer Viertel-Note; 
C/8 einer Achtel-Note etc. 

Manchmal tauchen in Kompositionen sog. punktierte Noten auf. Eine 
punktierte halbe Note hat z. B. 3/4 Taktlange. Auch die punktierten 
Noten wurden im Musikinterpreter in Abb. 5.4 beriicksichtigt. Der 
Punkt wird einfach an die entsprechende Note angehangt, wie z. B. 

C/4. 

Soweit zur Syntax des Musikinterpreters. AUe Noten werden, durch 
Kommata oder Leerzeichen voneinander getrennt, in Variablen, begin- 
nend mit A$(0) ab Programmzeile 30 abgelegt. Die Noten werden so 
lange abgearbeitet, bis der Rechner ein A$(x) vorfindet, das einen Leer- 
string enthalt. Alle Daten fur den Soundgenerator werden zuerst im 
Rechnerspeicher ab Speicheradresse F400 Hex ff. abgelegt. Erst wenn 
alle Noten in den A$-Variablen analysiert wurden, wird das Musikstuck 
gespielt. 
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Bei falschen Eingaben werden vom Interpreter Fehlermeldnngen ausge- 
geben, Der Interpreter kennt 2 Fehlermeldungen: 

a) Unbekanntes Zeichen 

b) Unzulassig benutztes Zeichen 

Die erste Fehlermeldung wird immer dann ausgegeben, wenn sich in der 
Variabien A(x) ein unzulassiges Zeichen befindet. Uber die zweite Feh- 
lermeldung werden unzulassige Noten (solche, die es nicht gibt) ange- 
zeigt:E+,H#. , 



IB 


CLEPiR 2000JDIM A*(20) eSP=8(HF4B0sPP=SP 




20 


' AB HIER DIE NOTEN ABLEGEN 




30 


A*(0)="E/4,E/4,E/2,F/4,D/4,D/2,C/4,D/4,E/4,F 
/4tG/4,G/4,G/2," 




40 






SB 






60 






70 






80 






799 






1000 


CLS t PR I NT " UEBERSE T ZUNG BEG I NNT " 




1010 


0=4! VOREINSTELLUNG OKTAVE 




1020 


P=l: * 1. ZEICHEN 




1030 


FOR X=0 TO 20 




1035 


PRINTSTRINe#(30,"»"J tPRINTA*(X> iPRINTSTRINE* 
(30, "*"> [PRINT 




1040 


L=LEN(A«(X) ) : IF L=0 THEN 10000 




104S 


Wl=64: W2=l ! W3=0: W5=15 




1050 


IF P>L THEN P=1:NEXTX ELSE B*«MID* (A* <X) ,P, 1 
} tB>ASC<A*(X> ) 




1060 


S*=" ,CDEFBAB/#.P"iFaR U-l TO 13 




1080 


S1*-M1D*(S*,U,1>:IF Sl*-B* THEN 1200 




1090 


NEXTU 




1100 


PRINT"FEHLER IN A* ( " i Xj " > :UNBEK. ZEICHEN" 




1110 


PRINTA«(X) 




1120 


PRINTTAB(P-l) " ! " 




1130 


STOP 




1200 


ON U GOTO 1300, 1300, 1400, 1500, 1600, 1700,1 BOO 
, 1 900 , 2000 ,2100, 2200 , 2300 , 2400 




1201 


GOTO 1100 




1300 


' > , 




1301 


'PLAY 




1302 


PR I NT " NOTENLAENQE " j W 1 




1303 


PRINT"OKTftVE " ( W3 




1304 


PR I NT "NOTE "»W4 




1305 


PRINT-LAUTSTAERKE "jMS 




1306 


POKE PP , W 1 AND255 : PP=PP+ 1 s POKEPP , I NT ( W 1 / 256 ) : 
pp:-pp+ 1 . POKEPP , W3 1 PP=PP+ 1 s POKEPP , W4 1 PP=PP+ 1 ; 
POKEPP , W5 I PP=PP+ I 




1307 


PRINT 




1308 


P=P-t-liSDTO 1045 




1400 


• > C 




1410 


W4° 1 : B0SUB90efl : GOTO 1 050 





Abb. 5.4: Musikinterpreter 
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1500 
1510 
1600 
1610 
1700 
1710 
1B00 
1810 
1900 
1910 
2000 
2010 
2020 
2100 
2110 
2120 
2130 

2140 
2200 
2210 

2220 



2300 
2310 
2400 
2410 
2420 

9000 
9010 
9020 
9030 

9040 
9050 



■ > D 

W4=2: GOSUB9000: GOTO 1050 

' > E 

W4»3 : OOSUB9000 s GOTO 1 050 

' > F 

W4=4 : GDSUB900O : GOTO 1 050 

' > G 

M4s5 1 GGSUB9000 s GOTO 1 050 

' > fl 

W4=6 : GOSUB900O : GOTO 1 050 

■ > B 

W4=-7tG05UB 9000: GOTOl 050 

■ > / 

Cl*="" 

P«P+ltB*=MrD*<fl*(X) ,P, n 

IF (B*<>","> AND <B*<>" '■) AND (B*<>"."J THE 

N ClS=Cl*+B*tGOTO 2120 

W1=M1/VAL(C1«) iGQTOlOSO 

> « 

IF CW4-1) OR (W4-2) THEN W4=W4+7! P-=P+1 :G0TD1 

050 

IF CW4=3) OR (W4=7) THEN PRINT"FEHLER IN A» ( 

"i X; ") lUNZULAEBSIG BENUTZTES ZE I CHEN ": GOTOl 1 

10 

' > . 

W1=W1 + . 5»W1 ; P=P+1 1 GOTO1050 
• > p 

W5=0 1 P=P+ 1 1 GOTO 1 050 



' UNTERPRQQRAMMi 

'CHECKEN OB NOTE + OKTAVENWERT 
P-P+1 

B*=I1ID*{A*(X) ,P,l>iIF B*<"1" OR B*>"a" THEN 
RETURN 
W3=VAL (B*) : P=P+1 t RETURN 



10000 ABSPIELEN DER NOTEN 

10010 PRINT"<RETURN> 2UM ABSPIELEN" 

10020 PRINTINTC (PP-SP>/5> ) " NOTEN SIND ZU SPIEUEN" 



10030 
10040 
10050 
10060 
10070 
10080 
10090 
10099 
10100 
10111 
10120 
10130 
10140 
10145 
10150 



FOR X=SP TO PP-4 STEP 5 

P 1 =PEEK ( X ) +256*PEEK ( X + 1 ) t ' TONLAENGE 
P2=PEEK (X+2) : OKTAVENNUMMER 
P3=PEEK(X+3) : 'TONNUMMER 
P4=PEEK(X+4) I 'LAUT:0=PAUSE 15=T0N 



;P2;",";P3(","(P4(")" 
<1,P2,P3,P4) 
(1,P2,P3,0> ! 'ENDE TON 



PRINT"PLAV(1, 

FOR L=l TO PI 

IsADATA 

NEXT L 

IsADATA 

NEXT X 

IsADATAtl ,P2,P3,0> 

END 



Abb. 5.4: Musikinterpreter (Fortsetzung) 
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Kapitel O 

Arbeiten 
mit Disk-B ASIC 



Went! Sie eine Diskettenstation fiir das Colour- Genie erwerben, bekom- 
men Sie automatisch das Disk-BASIC mitgeliefert. Es befindet sich auf 
dem Steckmodul, das rechts hinten am Rechner eingesteckt wird. Dieses 
Disk-BASIC enthalt die notwendigen Programme, um mit den Disket- 
tenlaufwerken unter Microsoft-BASIC arbeiten zu konnen. Beim Ein- 
schalten eines Rechners, in den der Disk-BASIC Einschub eingesteckt 
ist, stehen alle notwendigen Routinen automatisch zur Verfiigung. Dies 
ist jedoch nur eines der kennzeichnenden Merkmale des Disk-BASIC. 
Auch solche Anweisungen, die nicht direkt mit dem Peripheriegerat Dis- 
kette zu tun haben, stehen neu, sozusagen als erweiterter Befehlssatz des 
Interpreters, zur Nutzung bereit. Dazu zahlen 

Anweisungen wie LINEINPUT 

Funktionen wie INSTR,MID (....) = , DEFFN 

Echtzeituhr und deren Programmierung 

Einige dieser neuen Moglichkeiten sollen Sie im folgenden kennenlernen. 



6.1 DIE ZEIT 

Eine interessante Funktion ist TIME$, die, einmal mit den richtigen 
Daten versehen, Datum und Uhrzeit standig aktualisiert, solange der 
Rechner in Betrieb ist. 

Wenn Sie 

PRINT TIME$ 

eingeben, erhalten Sie vom Rechner eine siebzehn Zeichen lange Zei- 
chenkette, in deren ersten acht Zeichen das Datum und in deren letzten 
acht Zeichen die Uhrzeit erfaBt ist. Mit Hilfe dieser Funktion ist es Ihnen 
moglich, bestimmte Rechenablaufe zeitHch zu erfassen oder Eingaben 
zeitlich zu begrenzen. Da die Werte fiir Tagesdatum und Uhrzeit beim 
Einschalten des Rechners jeweils mit initiahsiert werden, benotigen Sie 
ein kurzes Programm, das Datum und Uhrzeit mit den richtigen Werten 
versieht: 
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s CLS 

10 INPUf'WIE LflUTET DAS DATUM <TTMMJJ>")D» 

2B 1NPUT"WIE LAUTET DIE UHRZEIT (STMISE) " j T» 

30 TAe=VAL(LEFT*(D*,2)) 

40 MD»VAL<niD«(D*,3,2) ) 

50 JA=yAL(RIQHT*(D*,2) > 

60 POKE S<H4046,TAGiPDKE&H4a45,MO:PDKe&H4044,JA 

70 ST=VALtLEFT*(T*,2)) 

80 MI=VAL(MID*(T»,3»2) ) 

90 SE-VALtRIBHT*tT*,2> > 

1 00 P0KE&H4043 , ST I POKEI(H4042 , M I s POKE8.H404 1 » SE 

110 CLS 

120 PRINTe0,TIf1E* 

130 GOTO 120 



Abb. 6.1: Setzen der Vhr, Eingabe des Datums 

Nach Einlesen der Werte wird links oben auf dem Bildschirm das Tages- 
datum und die Uhrzeit angezeigt. Sie konnen jetzt ohne weiteres die 
BREAK-Taste betatigen und das Programm durch NEW loschen oder 
andere B ASIC-Programme starten. Unabhangig davon wird jedesmal, 
wenn Sie 

PRINT T1ME$ I 

eingeben, das aktuelle Tagesdatum und die richtige Uhrzeit angezeigt. 

Eine weitere Verwendungsform der TIME$-Funktion ist die, Rechenab- 
laufe in BASIC-Programmen zeitlich zu erfassen. | 

Wie viele Durchlaufe und wieviel Zeit benotigt Ihr Rechner z. B . , um bei 
zufalliger Auswahl einer Zahl zwischen und 100 die Zahl 95 zu treffen? 



10 Z"0!'ZAeHLER DER DURCHLAEUFE 

20 POKES(H404 1,0; PaKE8tH4042 , { POKE8iH4043 , 0: ' RUEC 

KSETZEN DER UHR WIE BEI EINER STOPPUHR 
30 RANDOM 
40 W=RND(100) 

50 Z»Z+1» HOCHZAEHLEN ZAEHLER 
60 IF W>95 THEN Q0t 'TEXT AUSGEBEN, WENN RICHTI 

GE ZAHL GEFUNDEN MURDE 
70 GOTO 30 
SO T*=RIGHT»(TIME*,S) : ERFASSEN DER BENOETIGTEN 

ZEIT 
90 PRINT: PRINT 
100 CLS 
110 PRINT"ES WAREN "\Z\" DURCHLAEUFE ERFDRDERLIC 

H, UM AUS 100 ZAHLEN DIE ZAHL 95 ZU 

ERMITTELN. " 
120 PRINT"DER RECHNER BRAUCHTE DAZU "jMID#(T*,4, 

2>}" MINUTEN UND " ; RIGHT* (TS ,2) ; " SEKUNDEN. " 



Abb. 6.2: Arbeiten mit der Uhr. Hier: Zeitliche Ermittlung von Rechenvorgangen 
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Eine entsprechende Bildschirmausgabe finden Sie in Abb. 6.3. 




Abb. 6.3: Bildschirmausgabe: Zeitliche Ermittlung von Rechenvorgdngen 



Eine weitere Einsatzmoglichkeit der Echtzeituhr besteht, wie schon oben 
erwahnt, darin, dem Anwender fiir die Beantwortung einer Frage oder 
allgemein fixr die Eingabe von Zeichen nur eine begrenzte, vorgegebene 
Zeit zur Verfiigung zu stellen. Auch dafUr kurz ein Beispielprogramm: 



10 CLS 

20 PRINT"IHNEN WIRD GLEICH EINE FRAQE GESTELLT, 

ZU DER DREI MOEBLICHE ANTWDRTEN VORGE- 
GEBEN WERDEN, VON DENEN NUR EINE RIGHT I GIST. 

II 

30 PRINT-'SCHAFFEN SIE ES, DIE FRAGE IN MAXIMAL 

5 SEKUNDEN ZU BEANTWORTEN?" 
40 PRINT:PRINTiPRINT"DRUECKEN SIE <RETURN> UND 

DIE ZEIT ZAEHLT" 
50 INPUT A« 
60 CLS 
78 PRINT"WIEVIEL 1ST 17 MAL 16 ???" 



Abb. 6.4: Zeitliche Begrenzung einer Eingabe 
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BQ PRINTiPRINT"! > 162" 

W PRINTiPRINT"2 > 272" 

liaiO PRINTiPRINT"3 > 282" 

lia PRINTiPRINT 

1219 POKE bH4IB41,e c'SEKUNDEN AUF B 

130 Y*=INKEY«iIF RIBHT* (TIME*,2) >"ia5" OR ¥♦<>"" 

THEN 140 
135 BOTO 130 
140 IF Y»-""THENPRINT"DIE 5 SEKUNDEN SIND UM":EN 

D 
150 IFY*="2"THENPRINT"0RATULIERE! RICHTIB SELOES 

T":END 
160 PRINT"DIE ANTWDRT KAM ZWAR SCHNELL GENUQ, AB 

ERFALSCH. " 




Abb. 6.4: Zeitliche Begrenzung einer Eingabe (Fortsetzung) I 

Soweit zu den Anwendungsmoglichkeiten der TIME$-Funktion. 

Eine weitere unter Disk-BASIC zur Verfiigung stehende Funktion, 
DEFFN, wird eingehend in den Kapiteln „Funktion" und „Eigene Funk- 
tionen" behandelt. 

6.2 INSTR 

Es gibt noch eine Funktion, die Ihnen unter Disk-BASIC zusatzlich zur 
Verfiigung stelit: Sie lautet INSTR. Mit ihrer Hilfe ist es moglich, den 
Inhalt von Zeichenketten dahingehend zu analysieren, ob und an welcher 
Stelle sich eine bestimmte Folge von Zeichen in der Zeichenkette befin- 
det. 



10 CLS 

20 PR INT" HI ER WIRD DIE HAEUFIGKEIT BESTIMM- 

TER BUCHSTABEN IN EINEM TEXT ANALYSIERT" 

30 LINEINPUT"WIE LAUTET DER 

TEXT; "i A* 

40 L=LENtA*> 

SO PRINT 

60 FOR X=ASC("A") TO ASC<"2"> 

70 N=0 

80 ZZ^l 

90 T=0 

100 N=N+1 

110 ZZ=T+1 

120 T=INSTR(ZZ,A*,CHR*(X> > 

130 IF TOO THEN 100 

140 N=N-1 

150 PRINT"<"5CHR*(X) ; "> TAUGHT IM TEXT "jNj' 

AUF. DAS ENTSPRICHT EINER HAEUFIBKEIT 

VON ";100#N/L;" '/..": PRINT 

160 NEXT X 



MftL 



Abb. 6.5: Ermittiung von Hdufigkeiten mit Hilfe der INSTR-Funktion 
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In diesem Programm taucht neben der LINE-INPUT-Anweisung in 
Zeile 30, die im Gegensatz zu der INPUT-Anweisung in der Eingabe 
auch Kommata und ahnliche Sonderzeichen zulaBt, in Zeile 120 die 
INSTR-Funktion auf . Das Programm ist im wesentlichen aus zwei Schlei- 
fen aufgebaut. Die auBere Schleife beginnt in Zeile 60 und endet in 
Zeile 170. Sie bewirkt die Bearbeitung der Zeichen A bis z. Die innere 
Schleife betrifft die Zeilen 100 bis 130, wo der eingegebene Text vom 
ersten bis zum letzten Zeichen auf das Auffinden eines bestimmten Buch- 
stabens hin analysiert wird. Im Programm wird mit mehreren Variablen 
gearbeitet, die im einzelnen folgende Bedeutung haben: Die Variable N 
wird jedesmal um 1 hochgezahlt, wenn der Buchstabe CHR$(X) in der 
vorgegebenen Zeichenkette A vorgefunden wurde. Ist dies nicht der Fall, 
Hefert die INSTR-Funktion in Zeile 20 fur die Variable T den Wert Null, 
so da6 die Anzahl der vorgefundenen Buchstaben in der Zeichenkette 
genau um 1 niedriger ist als N, was in Zeile 140 korrigiert wird. Die Varia- 
ble ZZ stellt einen Zeiger dar, der immer auf die Stelle zeigt, bei der die 
Suche nach einem bestimmten Zeichen in der Zeichenkette beginnen soil. 
Wurde die Haufigkeit eines bestimmten Zeichens ermittelt, wird wieder 
zur Zeile 70 verzweigt, wo die Variablen N, ZZ und T wieder mit 
Anfangswerten versehen werden. Eine entsprechende Bildschirmaus- 
gabe dieses Programms finden Sie in Abb. 6.6. 



^m HIER UIRO DIE HAEUFIGKEXT BESTIKN- ^| 
B TER BUCHSTABEH IH EIHEM TEXT AHALYSIERT ■ 
■ UIE LAUTET DER ■ 
H TEXT Hft yEHH DAS NAL CUT GEHT ^ 




<A> TAUCHT IN TEXT 3 HAL 

AUF. DAS EHTSPRICHT EIHER HAEUFICKEIT 

VOH 1B.5 :£. 


1 




<B> TAUCHT IN TEXT HAL 

ftUF. DftS EHTSPRICHT EIHER HAEUFIGKEIT 

VOH X, 


1 




<C> TAUCHT IN TEXT NAL 

VOH S**^jE'*TSPRICHT EIHER HAEUFIGKEIT 

1 


1 


H <D> TAUCHT IH TEXT 1 HAL ■ 
H AUF. DAS ENTSPRICHT EIHER HAEUFICKEIT ■ 



Abb. 6.6: Bildschirmausgabeim Programm in Abb. 6.5 
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6.3 LINE INPUT 

Auch die LINE INPUT-Funktion gehort zum Bestand der Disk-BASIC- 
Anweisungen. Die Verwendung von LINE INPUT laBt sich schon aus 
dem Namen ableiten, der soviel bedeutet wie „Einlesen einer (ganzen) 
Eingabezeile". Diese Anweisung wird ausschliefilich zum Einlesen von 
Zeichenketten verwendet: 

10 LINE INPUT'Wie warderSpielstand 1. FC Koein gegen R.W. Essen" ;A$ 

Der Unterschied zur INPUT- Anweisung besteht darin, da6 bei LINE 
INPUT keine Beschrankungen die Zuweisung bestimmter Zeichen an 
eine Zeichenkettenvariable verhindem. 

Wenn Sie das o. a. Beispiel starten und 4:3 eingeben, wird diese Zeichen- 
folge auch tatsachlich der Variablen A$ zugewiesen. 
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Kapitel I 

Strategische Spiele 



7.1 REVERSI 

REVERSI ist ein orientalisches Brettspiel. Es ist auch unter dem Namen 
Othello gelaufig. Auf einem 8x8 Spielfeld, wie Sie es in Abb. 7.1 sehen, 
werden einem Spieler runde, dem anderen viereckige Steine zugeteilt. 

Es konnen entweder 2 Personen gegeneinander spielen oder aber eine 
Person gegen den Computer. 



Je zwei Steine pro Spieler bilden die Ausgangsstellung. 




Abb. 7.1: Das durchnumerierte Spielfeld fur REVERSI 
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Regeln: 

Die beiden Spieler kommen abwechselnd zum Zuge. Der Rechner ermit- 
telt iiber eine Zufallsfunktion, wer den ersten Zug hat. Mit jedem Zug 
wird ein neuer Stein auf das Spielfeld gesetzt. Dies geschieht durch Ein- 
gabe einer Zahl zwischen 1 und 64. Gesetzt werden darf nur auf solche 
Felder, die bisher noch nicht belegt sind, und zwar so, daB entweder dia- 
gonal, horizontal oder vertikal gegnerische Steine zwischen eigenen „ein- 
geklemmt" werden. Solche „eingeklenimten" Steine werden dann zu 
eigenen Steinen. 

Beispiel: 

Wenn Sie im Spiel die eckigen Steine (xx) haben und bei folgendem Bild 
am Zug sind: 

27 XX oo 30 

konnen Sie Feld 30 wahlen. Danach wandelt sich das Spielfeld wie folgt: 

27 XX XX XX 

Sinn des Spiels ist es, am Ende, d. h. wenn alle Felder mit Steinen belegt 
sind, iiber mehr Steine als der Gegner zu verfiigen. Den Spielstand kon- 
nen Sie sich jeweils dann, wenn Sie am Zug sind, durch Eingabe von S 
vom Rechner ausgeben lassen. 

Fiir jeden Spieler besteht Zugzwang, solan ge die MogHchkeit besteht, 
nach diesen Spielregeln Steine zu setzen. Ist dies nicht der Fall, miissen 
Sie durch Eingabe von P passen. Der Rechner uberpriift dies genau. Stellt 
er fest, daB Sie noch an irgendeiner Stelle einen Stein setzen konnen, gibt 
er Ihnen die Meldung aus: 

Du darfst nicht passen. Du kannst z. B. noch auf Feld xx 

Sie konnen dann Ihre Eingabe wiederholen. Noch ein Tip: Die Felder am 
Rand und in den Ecken nehmen eine Schliisselstellung ein. Versuchen 
Sie, dort so viele Steine wie moghch zu plazieren. Machen Sie keine Feh- 
ler, denn darauf spekuliert der Rechner . . . 

Zum Programmaufbau: 

Grundgerxist des Programms ist ein Feld, das in Programmzeile 70 defi- 
niert wird. Der Feldname ist A. 

DIM A(64) 

Mit diesen 64 Feldelementen kann jede einzeine Position auf dem Spiel- 
feld erfaJ3t werden. Eine solche Position kann 

1. leersein (A(x)=0); 

2. mit einem runden Stein besetzt sein (A(x)= 1); 

3. rait einem eckigen Stein besetzt sein (A(x)= — 1). 
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Nach der Felddimensioniening wird der Bildschirm geloscht und in 
Zeile 90 zur Programmzeile 530 verzweigt. Dadurch werden diverse 
Unterprogramme, die in den dazwischenliegenden Zeilen liegen, iiber- 
sprungen. 

Von Programmzeile 530 bis 900 werden Eingaben versorgt (Anzahl der 
Spieler und deren Namen etc.) und Informationstexte ausgegeben. 
Danach wird ab Programmzeile 920 das Spielfeld aufgebaut, und die 
Variablen werden mit Anfangswerten versehen (bis Programm- 
zeile 1080). Je nachdem, ob der Wert der Variablen F 1 oder —1 ist, ist 
entweder der erste Spieler oder der zweite (der auch der Rechner sein 
kann) am Zug. In Programmzeile 1550 kommt nach jedem abgeschlosse- 
nen Zug durch 

F=-F 

wieder der Gegenspieler an die Reihe, An dieser Stelle enden unsere 
Erlauterungen. Dies hat folgenden Grund: Der librige Teil der BASIC- 
Routinen behandelt im wesentlichen die Strategic des Rechners und 
diverse Ein-/Ausgabefunktionen. Ein Spiel wird einfach uninteressant, 
wenn man die Strategic seines Gcgners kennt, well man die BASIC- 
Befehle nachvoUziehen kann. Vicl interessanter hingegen ist es, anhand 
des Spielverhaltens eines Rechners dessen Strategic zu erkennen und 
dann zu gewinnen. 

Vicl SpaB mit REVERSI! 



10 ANGEPASST AUF COLOUR GENIE 

30 CLS 

40 PRINTe4Ba," REVERSI" 

30 FORN- 1 106501 NEXT 

70 RANDOM I D I MA ( 64 ) I CLS s 6010220 

80 FORX= 1701200: NEXTXs RETURN 

90 IFF=1GOTO110 

100 PRINT«V«40+H,mPRINT"THENTHEN"; JRETURN 

110 PR I NTeV*40+H , ; : PR I NT " MKD*VAL " j i RETURN 

120 GOTO6S0 

130 H=4»(X-8»INT{X/8. 1) ) : V-6+2»INT ( X/S. 1) (RETURN 

140 FOR TT=B TO 200 STEP 40! PRINTaTT,CHR» (30) ; : N 

EXT:PRINTe0,; (RETURN 

1 50 D<=243 : N= 1 : GOSUB 1 70 : GOSUB200 1 GOSUB200: GOSUB20 

0: 6OSUB200: GOSUB2001 GOSUB200 

160 GO5UB200: RETURN 

170 FORZ«lTOB!PRINTeiNT<D> ,Nt D-D+4: N-N+1 s NEXTZ»R 

ETURN 

180 RETURN 

200 D-=D4-4S : GOSUB 1701 RETURN 

210 D<=0+76: GOSUB 170 1 RETURN 



Abb. 7.2: Die Programmliste zu Reversi 
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220 PR 1 NTCHR* ( 23 ) s J K=ia 1 K=RND ( 2 ) I PR I NTe20 , " 

"sB*="Der Rechner " 
230 PR INT I INPUT "1 admr 2 Spieler") Ji IF JO lANDJO 

2THEN23eEL5EPRINTi INPUT"Deinen Namen bitte t 

" ' A# 
240 F=l : IFJ=2GOTO270 
250 CLS: IFK-10OTG290 
260 G0TQ2BB 
270 PRINTiINPUT"und dan Namwn das Gagnarm bitta 

: ";B*:CLS 
2B0 PRINTS 40,B*i!GaTO3O0 
290 PRINTS 40, A«; 18070300 
300 PRINT" soil anfangen und spielt 

mit -folganden Steinen :" 
310 H=:30 : V=2 : F- 1 1 BDSUB90 
320 1FK=1GDTD340 
330 PRINTei60TA«MQOTa3S0 
340 PRINTei60,B*; 
350 PRINT" spialt mit 

■folgenden Steinan" 
360 VsSt F=-l t QOSUB90 
370 GOSUB80!CLS 
3B0 PRINT"Durch Eingabe von 'S' kannst Du 

dir dan Spielstand anzeigen I assen " i BOSUB80 
390 CLS:GaTO440 
400 REM 

410 F0RX=iTa64! IFA< X) =0GOTD430 
420 GOSUB 1 30 : F-A < X > : GOSUB90 
430 NEXTXsRETURN 
440 FDRX»lT064i A tX ) =«0e NEXTX 
450 A(2B)="liA<37»=-liA(29)=-liA<36)=-l 
460 GOSUB 1 50 : GOSUB 1 80 1 6OSUB400 1 G0TD86e 
470 GOSUB140:PRINTei,A«| ", ") t GDTQS20 
4B0 QOSUB140sPRINTei,B*;", " ; i GOTO520 
490 GOSUB 1401 PRINT" Ich bin dran,ich glaub' ich 

nehm " 
500 BOSUB9S0I RESTORE-. IFR>0QOTD470 
510 GOSUB140!PR1NT@1," " ; :PRINT"Okay , gemacht ! I 

ch nehme Feld " ; T; : Z=T; E=0:GDTO590 
520 I*="":Z*="":PRlNTe80,""s s INPUT" Waehle ein Fe 

Id Oder gib <P> ein, wenn 

Du bei diaaam Zug passt"; Z*:GOSUB 140: IFZ*-" 

8"THENG0SUB1331 e GOSUB80 
53ffl Z=VAL<2S) : IFZ»<>"S"eaTa550 
S40 PR I NTeO , " " : GOSUB 1 40 ; GOSUB 1 801 GQTO520 
550 GOSUB 140: IFZ*="P"GOTO810 
560 IF (Z>0) « ( Z<65> GDTO580 
570 PRINT«l,"So ein Feld gibt es nicht. " : 6OSUBB0 

:GOSUB140:GaTO520 
580 IFA(Z><>0GOTO610 

590 W=OiL=0iE=0»GOSUB620i IFW=0GOTO520 
600 F=-F;GDTO860 
610 PRINT@l,"FeId schon belegt .": GDSUB80: GOSUB 14 

0:0070520 
620 D= 1 : GOSUB 1 20: D=- 1 : GOSUB 1 20 : F0RD=7TD9: GOSUB 1 

20! NEXTD: F0RD=-970-7: GOSUB 120! NEX7D 
630 IFEO1GO7O1270 
640 RE7URN 



Abb. 7.2: Die Programmliste zu Reversi (Fortsetzung) 
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650 Q=Z+D 

660 IFG<1RETURN 

670 IFS>64RETURN 

680 IFA<G>»FTHENRETURN 

690 I FA ( G ) =0RETURN 

700 IFABS (D) =8SOTO730 

710 IFIIMT(G/8) = <6/B> RETURN 

720 IFlNT((Q-U/e) = ((G-l>/8>RETURN 

730 G=G+Di IFB<1RETURN 

740 IF6>64RETURN 

750 IFA (G) =F6OTD770 

760 6070690 

770 Y=0: W=l s IFE=lGaTae00 

780 I FL=1 RETURN 

790 FDR X^G-DTO Z +DSTEP-D t A ( X ) »F : GOSUB 1 30 1 GQSUB90 : 

NEXTX: RETURN 

800 FORX=G-DTaZ+DSTEP-Di Q-Q+l I NEXTX i RETURN 

810 W=0:L=1:FORZ°1TO64: IFA<Z» <>0GOTQe30 

820 GGSU&620 : I FW= 1 GDTOB50 

830 NEXTZ! IFY=lQaT01330 

B40 Y= 1 1 F=-F ! G0T0860 

850 PRlNT«l,"Du darfst nicht p«sfien. 

Du kannst z.B. noch auf Feld " | Z: GOSUB8O1 GOT 

0520 

860 IFJ-1GOTO90O 

870 IFFalGaT0930 

880 IFKB1GOTO4B0 

890 GOTO470 

900 IFF=1SQTQ950 

910 IFK-1GOTO490 

920 6OTO470 

930 1FK-1G0T0470 

940 G0T0480 

950 IFK-»1GDTD470 

960 GOTO490 

970 CL9tGOTD460 

980 R=0tT=-0iE=l 

990 FaRP«2aT01STEP-li IFA (P) <>0I=P-9 
1000 NEXTP:FaRP=37T064! IFA<P) <>0a-P+9 
1010 NEXTP!FDRP-lTO4jREADZ:IFA(Z)<>0GOTOlO40 

1020 IF(Z<I)+(Z>D)GOTO1040 

1030 GQSUB1210: IFQ< >0G0TD1 180 

1040 NEXTP:R=0:FDRP=1TD12!READA,B,N,M:FORZ=ATOBST 

EPN 

1050 IFA(Z)<>OGOTO1130 
1 060 IF(Z<I) + (Z>0> GOTO 1 1 40 
1070 GDSUB1210: IFQ»OGOTO1130 

1080 IFa*M>RG0T01110 

1 090 I FQ*M-RGOT0 1 1 20 

1100 GOTO1130 

1110 R=Q#MiT=Z: GOTO 1130 

1120 IFRND(3)=2T=Z 

1130 NEXTZ 

1 1 40 NE X TP J I FRO0RET URN 

1 150 F0RPi=lT012: READZ: IFA (Z)< >0GDTO1 170 
1160 GOSUB1210: IFQ<>0GaTail8O 

1170 NEXTP;GOTD1190 
1180 R=Q:T=Z! RETURN 



Abb. 7.2: Die Programmliste zu Reversi (Fortsetzung) 
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119a PRINT«l,"Ich muss passen . " : IFY=1GQTQ133B 

1200 Y=l!F=-F:GOSUB80: RETURN 

1210 N=T:IFT=ON=Z 

1 220 Q''0:PRINTe34,N:6OSUB62e: RETURN 

1230 DATftl, 8,57, 64, 3, i, 1,3, 24, 48, a, 3, 59, 62, 1,3,1 

7,41,8,3 
1240 DATAl 1,14, 1,1, 23, 47, 8,1, 51, 54, 1,1, IB, 42, 8,1 

1250 DflTfll9, 22, 1,2, 27, 30, 1,2, 35, 38, 1,2, 43, 46, I, 2 

1260 DATA2, 16,63,49,7,56,58,9, 10, 15,55,50 

1270 1FL=1 RETURN 

1280 IFM*=1GDTO1300 

1290 PRINTei,"Ein salcher lug Maere gegen 

die Spielregeln. ":GOSUBB0:6OSUB 140; RETURN 

1 300 GOSUG 1 30 : GOSUB90 : A ( Z ) =F 

1310 FDRX=1TD64; IFA(X>=0BQTO1380 

1320 NEXTX 

1 330 GOSUB 13311 GOTO 1 370 

1331 C=.a:D'=B!F0RX=-lT064:IFA(X)-lTHENC-=C+l 
1340 IFfl(X)=-lTHEND=D+l 

1350 NEXTX 

1360 G0SUB14BiPRINT«0,"B HAT "jD(" STEINE 

": PRINT" # HAT "(Cj" STEINE" s RETURN 

1370 Y*s=INKEY»: IFy*-""THEN1370ELSECLSiEND 

1 380 GOSUB80 : RETURN 



Abb. 7.2: Die Programmliste zu Reversi (Fortsetzung) 



7.2 BdRSENSPIEL 

Beim Borsenspiel konnen bis zu drei Personen mitspielen. Ziel des Spiels 
ist es, durch geschickten An- und Verkauf einer begrenzten Anzahl ver- 
fugbarer Aktien so schnell wie moglich zum Millionar zu werden. Hierbei 
steht es jedem Spieler frei, sich von der Bank Kredite zum Ankauf von 
Aktien geben zu lassen oder durch Verkauf e bei Hochnotierungen die 
notwendigen Gelder zur Erlangung des einmaligen Reichtums aufzubrin- 
gen. 

Sobald einmal jeder Spieler seine Transaktionen vorgenommen hat, 
andern sich die Tageskurse der Aktien nach Angebot und Nachfrage. 

Nach jeder Runde wird dem Spieler sein Vermogens- und Bargeldbe- 
stand angezeigt und eine Bilanz der durchgefuhrten Transaktionen 
erstellt. 
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Abb. 7.3: So sieht das Spielfeld im Borsenspiel aus 



9 ' BQERSENSPIEL, ANGEPASST AUF CQLDUR-OENIE 

10 CLEAR 100B 

2a DATA "British Petrol " , "VDlkswagen ","Chi 

mie Hoechst ", "Bayer AG " 

30 S«="M## Stk" 

40 K$= "####### DM" 

50 p=h3a 

60 PX=CHft*(3a} 

70 M*=" -»# DM" 

80 B*=" +#« DM" 

90 DM*="### DM " 

100 NN*=" y. X" 

1 10 CL5 

120 PRINT e 121, "B OERSENSPIEL" 

130 PRINT e 161, "=======-="==—•=— ====-" 

140 PRINT e 24a,"WiBviel Spieler (1-3)"; 

150 INPUT X 

160 IF X<1 OR X>3 THEN 140 

170 X=INT(X) 

180 CLE 

190 FOR I=*l TO X 

200 PRINT"Name von Spieler Nr." I; 

210 INPUT N«(I) 

220 N« ( I ) -LEFT* <N* ( I ) , 11) 

230 K ( I ) =300 



Abb. 7.4: Die Programmliste zum Borsenspiel 



108 Mein Colour-Genie 



240 NEXT I 

250 FDR 1=1 TO 4 

260 READ G« < I ) 

270 M(I}-100 

2B0 A<I)~300-X 

290 FOR J"l TO X 

300 5<J, I)=l 

310 NEXT J, I 

320 ZX=ZX+1 

330 FOR 1=1 TO X 

340 CLS 

350 GOSUB 370 

360 GOTO 600 

370 FDR J=l TO 4 

380 PRINT G*<J); USING DM*; W<J>| 

390 PRINT USING S*; A (J))! PRINT" "j 

400 IF M7.<J)=1 THEN PRINT USING MS) D7.(J); ELSE 

IF MX{J)=-1 PRINT USING B*; DXtJ); 

410 PRINT 

420 NEXT 

430 PRINT STRING*(40,"=") 

440 FOR J=l TO 4 

450 PRINT"Akti»n von " ) G* < J) j "i " .USING S*; S(I, 

J}; 

460 PRINT Q«(I» 

470 NEXT J 

4G0 T < I ) =0 

490 FOR K=l TO 4 

300 T(I)=T(I>+S{I, K>»W(K> 

510 NEXT 

520 PRINT"Gesa(Dtwert der Aktien j "(USING K»f 

Ttl) 

530 PRINT"Bargeld t "(USING K*; 

Kd) 

540 V(I)=VtI)+(V(I>*.01) 

S50 H ( I) =K ( I ) +T 1 1 > -V (I ) 

560 PRINT "Schul den an die Bank : "; USING K*( 

V<I) 

570 PRINT STRING* (40, "-"> 

580 PRINT"GesamtvBrmoegen r ";USING K* 

; H r T ) 

590 RETURN 

600 PRINT e P, N*(I);", nehmen Bie Transaktionen 

vor?"5P* 

610 Z«=INKEY* 

620 IF Z*="" TKEN 610 

630 IF Z»='*N" OR Z*="n" THEN 1090 

640 IF Z*<>"J" AND Z*<>"J" THEN 610 

650 PRINT a P, P*j"Wollen Sie Aktien kaufen?"? 

660 Z*=INKEY« 

670 IF Z*-"" THEN 660 

690 IF Z«-"n" OR Z*="N" THEN Se0 

690 IF Z*<>"J" AND Z*<>"j" THEN 660 

700 PRINT e P, P*s 

710 G=0 

720 INPUT"Welche Gesellschaft (1-4) "jG 

730 IF G<0 OR G>4 THEN 700 

740 G"INT<6) 
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7Sa IF 6s(9 THEN 88B 

760 PRINT e P, P*i"WiB viele Aktien von " B*<B)" 

wallen Sle kaufen"; 
770 INPUT A 
780 IF fl<0 THEN 760 
790 A=INT(A} 
800 IF A>A(G}PRINT « P, P«| "So viele Aktian sind 

nicht 
erhaeltlichl "i s FOR U=l TO 500! NEXT Ui GOTO 

760 
810 IF W(G)»A>K(I>PRINT @ P, P*i"Sie haben nicht 

genuegend Kapital!"t FOR U=l TO 500: NEXT U 
! GOTO 760 
Q20 S<I, G>=S<I, G)+A 
830 A(G)=A(G>-A 
840 K(I}-K(I)-WCG)*A 
850 PRINT CHR*(ZB>s 
G60 60SUB 370 
870 GOTO 700 
880 PRINT « P, P«|"WollBn Sie Aktien verkau-Fsn?" 

890 Z»=INKEV* 

900 IF Z*="" THEN 890 

910 IF Z*="N" OR Z*""n" THEN 1090 

920 IF Z*<>"J" AND Z*<>"j" THEN 890 

930 PRINT e P, P*; 

940 e=0 

950 INPUT"WBlchB Ge»llBcha-rt (1-4)";G 

960 IF G<0 QR G>4 THEN 930 

970 G=INT{e) 

980 IF G>0 THEN 1090 

990 PRINT e P, P*j"Wie viele Aktien von " G«(G)" 

wollen Sie verkaufen"; 

1000 INPUT A 

1010 IF A<0 THEN 990 

1020 IF A>S(I, G) PRINT 8 P, P*|"Soviele Aktien ha 

ben Sie nicht!"* FOR U=l TO 500j NEXT Us GOT 

990 

1030 S(I, G}=S(I, G)-A 

1040 A(G}=A(G)+A 

1050 K ( I ) -K ( I ) -i-W (G) *A 

1 060 PR I NT CHR* ( 2S > ; 

1070 GOSUB 370 

1060 GOTO 930 

1090 PRINT & P, P*| "Wollen Sie zur Bank?"j 

1100 Z«=INKEY* 

1110 IF Z*="" THEN 1100 

1120 IF Z*="j" OR ZS="J" THEN 1400 

1130 IF Z*<>"N" AND 2*<>"n" THEN 1100 

1140 NEXT I 

U50 GOSUB 1660 

1160 FOR 1=1 TO 4 

1170 F=0 

1 180 M=10*RND ( 12) -60 

1190 W(I)=W<I)+M 

1200 IF W(I}>=10 THEN 1280 
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110 



Mein Colour-Genie 



I2ie 


F=l 


122a 


MX ( I ) = 1 


123B 


DX(I)=10-Wtn 


1240 


FOR J=l TO X 


1250 


IF S(J, I) 00 THEN Y=(10-W<I) )»S(J, IM K(J) 




=K<J)-Y:IF K(JK0 THEN K(J)=K(J)+Y: V(J)=V(J 




}+Y 


1260 


NEXT J 


1270 


U(I)=10 


1280 


IF W(I)<=250 THEN 1360 


1290 


F=l 


1300 


MXCI)=-1 


1310 


DX < n <>W ( I) -250 


1320 


FOR J=l TO X 


1330 


IF S(J, I) 00 THEN Y=(W<I)-250)»S<J, I>! V<J 




)=V(J)-Y!lF V(J)<0 THEN K ( J) =K ( J) +ABS (V ( J > > ! 




V(J)a0 


1340 


NEXT J 


1350 


M < I ) =250 


1360 


IF F=0 THEN MX(I)-0 


1370 


NEXT I 


13B0 


CLS 


1390 


GOTO 320 


1400 


IF V(I)=0 THEN 1540 


1410 


PRINT a P, P*|"WoVlen Sie Krodit zurueckzahl 




en?"; 


1420 


Z*=INKEY* 


1430 


IF ZS-"" THEN 1420 


1440 


IF Z*="N" OR Z»«"n" THEN 1540 


1450 


IF Z*<>"J" AND Z*<>"S" THEN 1420 


1460 


PRINT a P, P*i 


1470 


INPUT"Wleviel Beld wollen Sib zuruackzahlen" 
IF Z>V(I)OR Z<0 THEN 1460 


14B0 


1490 


IF Z>K(I)PRINT 9 P, P*5"Ble habnn nicht genu 




egend Kapital": FOR U=l TO 500: NEXT U: GOTO 




1460 


1500 


\/(I>=V(I)-Z 


1510 


K(I)=«=K<n-Z 


1520 


PRINT CHR»(28> ; 


1530 


GOSUB 370 


1540 


PRINT €1 P, P*i "Wollen Sie Kredit nehmen?"; 


1550 


Z*=INKEY* 


1560 


IF Z*="" THEN 1550 


1570 


IF Z*="N" OR Z*="n" THEN 1140 


15B0 


IF Z«<>"J" AND Z*<>"j" THEN 1550 


1590 


PRINT e P» P»; 


1600 


INPUT"Wieviel Kredit Mollen Sie nehmen";Z 


1610 


IF Z<0 THEN 1590 


1620 


IF V{I)+Z>25000 PRINT 6 P, P*;"Soviel Kredit 




koennen Sie nicht nehmen'"; FOR U=l TO 500: 




NEXT: GOTO 1140 


1630 


V < I ) =V { I ) +Z 


1640 


K ( I ) =K ( I ) +Z 


1650 


GOTO 1140 


1660 


CLS 


1670 


PRINT"Bilanz nach" ZX"Rundeni" 


1680 


PRINT 
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ia2i 



1690 


PRINT-Spieler "; 




170Q 


FOR 1=1 TO X 




1710 


PRINTUSIMG NN*;N*(I)} 




1720 


NEXT I 


^ 


1730 


PRINT 




1740 


PRINT STRING* { X*1O+10, " = '■) 




1750 


PR I NT " Akt i enwer t " ; 




1760 


FDR 1=1 TO X 




1770 


PRINT USING K*( T(I) | 




17B0 


NEXT 




1790 


PRINT 




1B00 


PR I NT "Bar geld "j 




1810 


FDR 1=1 TO X 




1Q20 


PRINT USING K*f K(I>| 




1630 


NEXT 




1540 


PRINT 




1850 


PRINT-'Bchulden "| 




1860 


FOR 1=1 TO X 




1670 


PRINT USING K*; V(I) | 




1880 


NEXT 




1890 


PRINT 




1900 


PRINT STRINS*tX»10+ia,"-") 




1910 


PRINT"Vermoegen "; 




1920 


FDR 1=1 TO X 




1930 


PRINT USING K*s H<I>; 




1940 


NEXT 




19S0 


PRINT 




1960 


MX=0 




1970 


FOR I-l TO X 




1980 


IF H(I)>MX THEN MX=H{I>i MY-I 


1 


1990 


NEXT 




2000 


IF I1X< 100000 THEN PRINTi PRINT"Druecke 
"J ! INPUT Z»! RETURN 


ENTER 


2010 


PRINT 




2020 


PRINT"D(sr Sieger ist: "jN#(MY) 




2030 


FOR 1=1 TO 2000 




2040 


NEXT 




2050 


END 
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Anhang /\, 

Treiberprogramm 

fiir die DEFFN-Funktion 

unter Kassettenbetrieb 



In Kapitel 3 wurde die Anwendung von Funktionen, die mit Hilfe der 
DEFFN-Anweisung definiert warden, behandelt. 

Der sich im Rechner befindende BASIC- Interpreter des Colour-Genies 
unterstiitzt die DEFFN-Anweisung genauso wie die (ibrigen unter Kap. 6 
aufgefiihrten Anweisungen erst, wenn durch Einstecken des Disk- 
BASIC-Einschubs die entsprechenden Interpreter-Module zur Verfu- 
gung gestellt werden. 

Man kann solche Treiber-Module jedoch auch im RAM-Speicher eines 
Rechners ablegen. Man mu6 dann nur sicherstellen, da6 dieser RAM- 
Speiclier „geschiitzt" wird, d. h. nicht mit irgendwelchen Daten iiber- 
sctirieben werden darf . 

Das im folgenden vorgestellte Programm ladt sich in den Speicherbereich 
der frei programmierbaren Zeichen und startet sich danach selbst. Dem- 
zufolge diirfen Sie, solange Sie mit DEFFN arbeiten, keine frei program- 
mierbaren Zeichen definieren. 

Durch Betatigung der beiden RESET-Tasten konnen Sie jederzeit das 
Programmodul wieder desaktivieren. 



10 CLS 

2B PRINT"Mit Hilfe dieses Programms sind 

ColQur-Benie Besitzer ohne Disketten- 
station in der Lags, unter Microso-ft- 
BASIC mit der Funktian DEFFN zu ^r- 
bei ten, " 

30 PRINT"Ein dazu notwendiges Treiber- 

programm in Maschinensprache wird da- 
zu in den Speicher der -frei pro— 
grammi erbaren Zeichen geladen, mit 
denen dann nicht mehr gearbeitet wet — 
den darf. " 



Abb. A.l: Das Treiberprogramm fur DEFFN unter Kassettenbetrieb 



114 Mein Colour-Genie 



40 


A=&HF400: An+ang des Trelbers 


1 


50 


E=8(HF528: 'Endadresse des Treibers 




6B 


FOR X 


=A TD E 




70 


READ 


WiPOKE X,M 




80 


su=su+w 




90 


NEXT 


X 




100 


IF SU 


<> 37624 THEN PRINT" 






EINBABEFEHLER IN DEN DATA-ZEILEN" : STOP 




110 


PRINT 


:PRINT"TreiberprDgramm eingebunden. 


ti 


120 


FOR X 


=1TO100:NEXTX 




130 


CALL 


F400 




140 


DATA 


33, 127 




150 


DATA 


244, 34, 86, 65, 33 




1&0 


DATA 


47, 244, 34, 92, 65 




170 


DATA 


195, 193, 29, 183, 194 




160 


DATA 


214, 9, 201, 215, 62 




190 


DATA 


128, 50, 220, 64, 182 




200 


DATA 


71, 205, 18, 38, 24 




210 


DATA 


8, 62, 128, 50, 220 




220 


DATA 


64, 205, 13, 38, 5S 




230 


DATA 


175, 64, 254, 3, 201 




240 


DATA 


254, 190, 32, 25, 205 




250 


DATA 


20, 244, 205, 40, 40 




260 


DATA 


125, 18, 19, 124, 18 




270 


DATA 


62, 40, 190, 194, 5 




280 


DATA 


31, 215, 205, 13, 38 




290 


DATA 


62, 44, 24, 244, 254 




300 


DATA 


193, 194, 151, 25, 205 




310 


DATA 


96, 244, 213, 207, 213 




320 


DATA 


205, 2, 43, 227, 115 




330 


DATA 


35, 114, 225, 201, 17 




340 


DATA 


236, 67, 215, 208, 214 




350 


DATA 


48, 135, 131, 95, 215 




360 


DATA 


201, 70, 33, 94, 244 




370 


DATA 


229, 197, 205, 41, 244 




380 


DATA 


245, 204, 218, 41, 235 




390 


DATA 


33, 33, 65, 241, 201 




400 


DATA 


205, 20, 244, 245, 175 




410 


DATA 


245, 235, 126, 35, 102 




420 


DATA 


111, 124, 181, 202, 74 




430 


DATA 


30, 26, 254, 40, 32 




440 


DATA 


63, 207, 40, 213, 205 




450 


DATA 


33, 244, 193, 34, 235 




460 


DATA 


67, 32, 9, 213, 245 




470 


DATA 


197, 213, 205, 136, 40 




480 


DATA 


24, 16, 237, 68, 111 




490 


DATA 


38, 255, 57, 249, 237 




500 


DATA 


6B, 213, 245, 197, 213 




510 


DATA 


205, 15, 244, 209, 42 




520 


DATA 


235, 67, 227, 215, 205 




530 


DATA 


43, 31, 209, 26, 190 




540 


DATA 


194, 151, 25, 235, 254 




350 


DATA 


41, 40, 4, 207, 44 




560 


DATA 


24, 197, 19, 215, 207 




570 


DATA 


213, 213, 205, 55, 35 




580 


DATA 


43, 215, 194, 151, 25 




590 


DATA 


225, 34, 235, 67, 231 




600 


DATA 


32, 50, 237, 91, 179 
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6iia 


DATA 


64, 42, 33, 65, 27 


620 


DATA 


27, 27, 223, 40, 5 


630 


DATA 


205, 67, 40, 24, 32 


640 


DATA 


237, 91, 211, 64, 205 


650 


DATA 


245, 41, 34, 179, 64 


660 


DATA 


1, 3, 0, 237, 176 


670 


DATA 


24, 15, 209, 254, 3 


680 


DATA 


40, 23B, 33, 0, 


690 


DATA 


57, 235, 205, 15, 244 


700 


DATA 


235, 249, 241, 183, 32 


710 


DATA 


237, 231, 204, 194, 41 


720 


DATA 


42, 235, 67, 43, 215 


730 


DATA 


241, 195, 25, 40,0 



Abb. A.l: Das TreiberprogrammfurDEFFNunterKassettenbetrieb (Fortsetzung) 
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Anhang D 

Wichtige 
Speicheradressen 



In diesem Abschnitt soUte ursprunglich ein anderes Thema behandelt 
werden.DaB hier schlieBlich doch die Adressen von Interpreterroutinen 
und vom Kommunikationsbereich behandelt werden, hat mehrere 
Griinde. Erstens kann es vorkommen, daB Ihnen irgendwann Software in 
die Hande fallt, in der iiber PEEK und POKE bestimmte Adressen dieser 
Art angesprochen werden, so daB ein Nachschlagewerk fiir das Verstand- 
nis eines solchen Programms wiinschenswert ist. Zweitens werden auch in 
diesem Buch solche Adressen (wie im Beispiel „Ennittlung der gegenwar- 
tigen Cursor-Position auf dem Bildschirm") verwendet, zu denen man im 
BASIC-Handbuch keinerlei Dokumentation findet. | 

Das hegt in erster Linie daran, daB die Daten, die sich in solchen 
Speicheradressen befinden, nicht fiir die Nutzung durch Anwender, son- 
dern als Informationsbausteine fiir den Interpreter vorgesehen sind. So 
muB der Interpreter z. B. wissen, mit welcher Adresse ein sich im Spei- 
cher befindendes BASIC-Programm beginnt, um dieses abarbeiten zu 
konnen. I 

Fiir Sie kann diese Information dann von Nutzen sein, wenn Sie solche 
rechnerinternen Vorgange nachvoUziehen wollen. 

Im folgenden finden Sie eine Tabelle solcher Speicheradressen mit eini- 
gen Anwendungsbeispielen: 



Adresse HEX 


Adresse DEZ 


Bedeutung 


3800-380F 


14336-14351 


CRTC-ControUer: Werte fiir den LGR-Bildschirm 
(detaillierte Beschreibung siehe Handbuch 

Seitell5ff.) 


3810-381F 


14352-14367 


CRTC-ControUer: Werte fiir den FGR-Bildschirm 
bei P AL-Monitor 


3823-3832 


14371-14386 


CRTC-ControUer: Werte fiir den LGR-Bildschirm 
(NTSC-Norm) 


3833-3842 


14387-14402 


CRTC-ControUer: Werte fur den FGR-Bildschirm 
(NTSC-Norm) i 


4020-4021 


16417-16417 


Cursoradresse 
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Adresse HEX 



Adresse DEZ Bedeutung 



4022 

4023 

4024 

4028 

4029 

4036 

4037 

4038 

4039 

403A 

403B 

403C 

403D 

4099 

409A 

409B 

409C 

409D 

40A2 

40A4-40A5 



40A6 

40B1-40B2 

40DA-40DB 

40EA 

40EC 

40EE 

42F0-430F 
4310-4312 

4313 

4314 

4390- 439F 



16418 
16419 
16420 
16424 
16425 
16438 
16439 
16440 
16441 
16442 
16443 
16444 
16445 

16537 

16538 
16539 

15540 
16541 
16546 
16548-16549 



16550 
16561- 
16602- 
16618 

16620 
16622 

17138- 
16168- 

17171 



16562 
16603 



■17167 
■17170 



17172 
17296-17311 



Cursorzeichen (ASCII-Code) 

Letzter Farbencode im LGR-Modus 

Letztes gedriicktes Zeichen fiir REPEAT 

Drucker: Anzahl der Zeilen pro Seite 

Dnicker: Zeilenzahler 

Tastaturstatus fiir Tastaturzeile F801 

Tastaturstatus fiir Tastaturzeile F802 

Tastaturstatus fiir Tastaturzeile F804 

Tastaturstatus fiir Tastaturzeile F808 

Tastaturstatus fiir Tastaturzeile F810 

Tastaturstatus fur Tastaturzeile F820 

Tastaturstatus fur Tastaturzeile F840 

Tastaturstatus fur Tastaturzeile F88G 

(s. S. 125 BASIC-Handbuch) 

INKEY-Zwischenspeicher 

Letzter Fehlercode fiir ERR 

D ruckkopf position 

Ausgabekennung: 0= Video, 1= Drucker, 2=Kass. 

Zeilenlange auf dem Bildschirm 

aktuelle Zeilennummer I 

Speicheradresse, von der ab ein Programm 

im Speicher abgelegt wurde (Berechnung: 

ADR=PEEK(&H40A4)-h256XPEEK(&H40A5)) 

Position des Cursors in der Bildschirmzeile 

Letzter im BASIC verfiigbarer Speicherplatz 

Aktuelle D ATA-Zeile fUr READ- Anweisung 

Zeile, in der der letzte Fehler auftrat 

Zeilennummer fiir EDIT. I 

Zeigt auf die Anweisung, bei deren Ausfiihrung der 

letzte Fehler auftrat. 

CRTC-Tabelle: wird von 3800 hierhin kopiert. 

Aufzeichnungsrate fiir Programme und Daten 

auf Kassette 

Code der FCOLOUR-Farbe , mit der gerade 

gezeichnet wird 

Letzter verwendeter SCALE-Faktor 

Farbencodetabelle 



Wie man einige der Funktionen sinnvoU in eigenen Programmen anwen- 
den kann, entnehmen Sie den Abbildungen B.l und B.2. 
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10 GLStCLEARlBea | 

2B PRINT"AUS DEN SPE I CHERftDRESSE:h( k;^m^ pQ^- i 

GENDEB ENTNDMMEN WERDEN! ": PRINT s PRINT I 
30 P=PEEK ( i(H4023 ) + 1 I 

40 PRINT"DIE ZULETZT VON IHNEN FlJER DEN LGR- ' 

BILDSCHIRM ANGEWAEHLTE FARBE HftTTE DEN I 

FARBENCDDE ";P;'\ ALSO COLOUR .. . p I 

50 P=PEEK (8<H4024) I 

60 PRINT"DAS ZULETZT VON IHNEN Aijp ^^p jfys- 

TATUR BETAETIBTE ZEICHEN HAT Qg^ ASCI I -CODE 

! ";P 
70 P=PE£K ( S(H409A ) | 

80 IF P=0 THEN A*""KEIN FEHLER" ElsE A*-"EIN FE 

HLER MIT DEM FEHLERCODE ERR*" -^g-j-R* tP) 
90 PRINT" IM PROORAMM TAUCHTE "|A*,.. ftUF." i 
100 P=PEEK tS<H4Bft4) +256*PEEK <&H40ft3j I 

110 PRINT"DIESES PRDBRAMM WURDE Vqm RECHNER AB S 

PEICHERADRESSE " j P; " ABGELEGT . » 
1 20 P=PEEK { &H4aA6 > I 

130 PRINT"DER CURSOR BEFINDET SICH Z ZT IN BILD 

SCHIRMSPALTE ";P 
1 40 P=PEEK ( &H40B 1 > +256»PEEK < 8(H40B2 > 
150 PRINT"DER LETZTE Z.ZT. VERWENDe^pp SPEICHERP 

LATZ HAT DIE ADRESSE "jP 



Abb. B.l: BestimmteSpeicheradressenkdnnenwertvollelnformationenenthalten, die 
Sie nicht direkt uber eine BASJC-Anweisung abrufen konnen 



hus den speicheradressen kahh FOL- 

GEHDES EHTNOMKEN WERDEH: """" '^"'' 



DIE ZULETZT VON IHHEH FUER DEK LGR 

FARBEHCODE 16 , ALSO CQEOUR t6 
DAS ZULETZT VON IHKEH AUF DER TAS- 
TATUR BETAETICTE ZEICHEN HAT DEH ASCI I-fi 

IM PRO&RAHH TAUCHTE EIH FEHLER HIT DEM F 
EHLERCODE ERR= 16 AUF. "^tHLtK BIT utn \r 

DIESES PROGRAMM yURDE VOH reCHHER 
AB SPEICHERADRESSE g^^?" ABGELEGT 
DER CURSOR BEFINDET SICH ZUR ZEIT 
IH BILDSCHIRMSPALTE 9 ^""^ ^''^' 

OER LETZTE Z.ZT. VERUENDBflRE 
SPEICHERPLATZ HAT DIE ADResSE 32511 



Abb. B.l: Bildschirmamgabe zum Programmin Abb. B.l 
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C 



Im folgenden finden Sie einige Zeichensatze, die Sie mit Hilfe des iin 
Kapitel 2 vorgestellten Hilfsprogramms in den Speicher fiir frei definier- 
bare Zeichen laden konnen. An das Ende der DATA-Zeilen wird das 
Programm aus Abb. 2.17 angehangt und durch RUN gestartet. Die im 
folgenden vorgestellten Schrifttypen tragen die Namen 



O COUNT 

O BLIPPO-BLACK 

O GOTHIC 

O COLOSSAL 

O BYTE 

O STOP 

O PUDGY 

O PINOCCHIO 

O OUTLINE 
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32 


REM BCHRIFTTYPE COUNT 


\ 


■ 


33 


DATA 


0,0,246,246,0,0,0,0 : 


REM 


1 


34 


DATA 


0,160,192,0,160,192,0,0 : 


REM 


?7 


35 


DATA 


100,254,254,100,254,100,0,0 : 


REM 


c 


36 


DATA 


40,100,246,222,76,40,0,0 : 


REM 


^ 


37 


DATA 


98,100,8,16,38,70,0,0 : 


REM 


"'"■ 


38 


DATA 


92,254,254,162,138,76,0,0 : 


REM 


t 


39 


DATA 


0,0,160,192,0,0,0,0 ! 


REM 


7 


40 


DATA 


0,56,124,238,198,0,0,0 : 


REM 


< 


41 


DATA 


0,198,238,124,56,0,0,0 : 


REM 


> 


42 


DATA 


84,56,254,254,56,84,0,0 : 


REM 


* 


43 


DATA 


0,24,60,60,24,0,0,0 ! 


REM 


* 


44 


DATA 


0,0,5,6,0,0,0,0 " : 


REM 


!> 


45 


DATA 


0,24,24,24,24,24,0,0 : 


REM 


^N 


46 


DATA 


0,6,6,0,0,0,0,0 ! 


REM 


^ 


47 


DATA 


2,4,8,16,32,64,128,0 ! 


REM 


y 


48 


DATA 


126,254,254,162,194,252,0,0 : 


REM 


r 


49 


DATA 


0,64,254,254,254,0,0,0 : 


REM 


1 


50 


DATA 


70,142,254,250,98,2,0,0 : 


REM 


z 


51 


DATA 


68,130,146,254,254,108,0,0 : 


REM 


:a 


52 


DATA 


56 , 72 , 254 , 254 , 254 ,8,0,0 : 


REM 


4 


53 


DATA 


244,210,222,222,222,204,0,0 : 


REM 
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DATA 
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REM 
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DATA 
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REM 
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DATA 
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REM 
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DATA 
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DATA 
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DATA 
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DATA 


0,54,54,54,54,54,0,0 ! 
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DATA 
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DATA 


124,254,146,170,154,114,0,0 


:REM 
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DATA 
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:REM 
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DATA 


124,254,254,146,146,130,0,0 


:REM 
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DATA 
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254,254,254,144,144,96,0,0 

124,254,254,130,130,127,1,0 

254,254,254,144,144,110,0,0 

100,242,186,186,158,76,0,0 

0,128,254,254,254,128,0,0 

252 , 254 , 254 ,2,2, 252 ,0,0 

224,252,254,30,28,224,0,0 

252,6,252,6,254,252,0,0 

238,254,254,16,16,238,0,0 

224,240,254,30,30,240,0,0 

134,142,158,242,226,194,0,0 

0,126,255,255,129,129,0,0 

128,64,32,16,8,4,2,0 

O, 129,129,255,255,126,0,0 

8,24,48,16,8,0,0,0 

1,1,1,1,1,1,1,0 

0,0,224,208,0,0,0,0 

28,34,34,60,62,30,0,0 

252,254,254,34,34,28,0,0 

28,62,62,34,34,20,0,0 

28,34,34,254,254,252,0,0 

28,62,62,42,42,18,0,0 

0,126,254,254,144,80,0,0 

25 , 37 , 37 , 63 , 63 , 30 , , O 

254,254,254,16,16,14,0,0 

0,0,190,190,190,0,0,0 

0,2,1,191,191,190,0,0 

254,254,254,16,16,110,0,0 

0,0,254,254,254,0,0,0 

30,62,48,30,48,30,0,0 

30,62,62,32,32,30,0,0 

28,62,62,34,34,28,0,0 

63,63,63,34,34,28,0,0 

28,34,34,63,63,63,0,0 

0,30,62,62,32,16,0,0 

20,50,42,42,38,20,0,0 

0,252,254,254,34,36,0,0 

60,62,62,2,2,60,0,0 

48,60,62,2,12,48,0,0 

60 , 6 , 60 , 6 , 62 , 60 , O , O 

54,62,62,8,8,54,0,0 

57 , 5 , 5 , 63 , 63 , 62 , O , O 

38 , 46 , 62 , 58 , 50 , 34 , O , O 

0,16,126,255,195,195,0,0 

0,0,0,255,0,0,0,0 

0,195,195,255,126,16,0,0 

8,16,16,8,8,16,0,0 
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Mein Colour-Genie 



32 


REM SCHRIFTTYPE BLIPPO BLACK 




1 


33 


DATA 


0,0,0,242,0,0,0,0 : 


REM 


1 


34 


DATA 


0,0,224,0,0,224,0,0 : 


REM 


T 1 


35 


DATA 


0,40,254,40,254,40,0,0 : 


REM 


# 


36 


DATA 


0,36,84,254,84,72,0,0 : 


REM 


$ 


37 


DATA 


98,100,8,16,38,70,0,0 : 


REM 


"'L 


38 


DATA 


0,12,114,138,100,10,0,0 : 


REM 


J^< 


39 


DATA 


0,0,32,192,0,0,0,0 : 


REM 


-' 


40 


DATA 


0,0,56,68, 130,0,0,0 ; 


REM 


t'' 


41 


DATA 


0,0, 130,68,56,0,0,0 ! 


REM 


> 


42 


DATA 


, 84 , 56 , 254 , 56 , 84 , , : 


REM 


* 


43 


DATA 


0,16,16,124,16,16,0,0 ! 


REM 


+ 


44 


DATA 


0,0,1,6,0,0,0,0 ! 


REM 


_. 


45 


DATA 


0,16,16,16,16,16,0,0 : 


REM 


- 


46 


DATA 


0,0,6,6,0,0,0,0 ! 


REM 


_ 


47 


DATA 


2,4,8,16,32,64,0,0 : 


REM 


^'' 


48 


DATA 


0,124,138,146,162,124,0,0 : 


REM 





49 


DATA 


0,2,130,254,2,2,0,0 : 


REM 


1 


50 


DATA 


0,70,138,146,146,102,0,0 : 


REM 


£^ 


51 


DATA 


0,68,130,146,146,108,0,0 : 


REM 


■3i 


52 


DATA 


, 8 , 24 , 40 , 74 , 254 ,10,0 i 


REM 


4 


53 


DATA 


0,244,146,146,146,204,0,0 ! 


REM 


E 


54 


DATA 


0,124,146,146,146,76,0,0 : 


REM 


6 


55 


DATA 


0,192,128,158,160,192,0,0 : 


:REM 


7 


5& 


DATA 


0,108,146,146,146,108,0,0 : 


:REM 


t"\ 


57 


DATA 


0,100,146,146,146,124,0,0 : 


sREM 


9 


58 


DATA 


0,0,0, 36, 0,0, 0,0 : 


iREM 
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DATA 


0,0,1,38,0,0,0,0 ! 


sREM 


r" 
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DATA 


0,16,40,68,130,130,0,0 ! 


iREM 


,<: 


61 


DATA 


0,40,40,40,40,40,0,0 : 


:REM 


„ 


62 


DATA 


0,130,130,68,40,16,0,0 s 


:REM 


-■;. 


63 


DATA 


, 64 , 1 28 , 1 38 , 1 44 , 96 , O , 


:REM 


'-," 


64 


DATA 


124,146,170,170,154, 114,0,0 


:REM 


@ 


65 


DATA 


2 , 62 , 82 , 1 44 , 82 , 62 , 2 , 


:REM 


fi 


66 


DATA 


130,254,146,146,146,108,0,0 


:REM 


E 


67 


DATA 


0,124,130,130,130,68,0,0 


:REM 
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68 


DATA 


130,254,130,130,130, 124,0,0 


:REM 
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69 


DATA 


130,254,146,186,130,198,0,0 


:REM 
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70 


DATA 


130,254,146,144,184,192,0,0 


:REM 
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71 


DATA 


0,124,130,130,146,92,16,0 


sREM 
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72 


DATA 


130,254,146,16,146,254,130,0 


iREM 
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73 


DATA 


0,198,130,254,130,198,0,0 


:REM 
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DATA 


8,12,2,2,130,252,128,0 


:REM 


,.T 


75 


DATA 


130,254,18,40,68,130,130,0 


sREM 
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76 


DATA 


130,254,130,2,2,6,0,0 


:REM 
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77 


DATA 


130,254,66,48,66,254,130,0 


:REM 


M 


78 


DATA 


130,254,66,32,146,254,130,0 


:REM 


H 


79 


DATA 


0,124,130,130,130,124,0,0 


:REM 
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32 REM SCHRIFTTYPE SDTHIC 

33 DATA 0,0,0,242,0^0,0,0 

34 DATA 0,224,224,0,224,224,0,0 

35 DATA 0,40,254,40,254,40,0,0 

36 DATA 0,36,94,254, B4, 72, 0,0 

37 DATA 98,100,8,16,38,70,0,0 
12,114,138,100,2,0,0 
0,224,224,0,0,0,0 
0,56,68,130,0,0,0 
0,130,68,56,0,0,0 
84,56,254,56,84,0,0 
16,16,124,16,16,0,0 
0, 1 ,6,0,0,0,0 
16,16,16,16,16,0,0 
0,6,6,0,0,0,0 
4,8,16,32,64,0,0 
124,138,146,162,124,0,0 
34,66,254,2,2,0,0 
70,138,138,146,98,0,0 
68,130,146,146,108,0,0 
24,40,72,254,8,0,0 
244,146,146,146,140,0,0 
60,82,146,146,12,0,0 
192,128,158,160,192,0,0 
108,146,146,146,108,0,0 
96,146,146,148,120,0,0 
0,0,36,0,0,0,0 
0,1,38,0,0,0,0 
16,40,68,130,130,0,0 
40,40,40,40,40,0,0 
130, 130,68,40,16,0,0 
64,128,138,144,96,0,0 
124,146,170,154,114,0,0 

65 DATA 66,156,168,72,40,28,2,0 

66 DATA 186,84,146,146,146,108,0,0 

67 DATA 56,68,186,130,162,68,0,0 

68 DATA 254,68,130,130,68,56,0,0 

69 DATA 186,84,146,146,130,68,0,0 

70 DATA 146,124,144,144,128,64,0,0 

71 DATA 56,76,148,148,149,95,0,0 

72 DATA 2,124,144,144,144,78,0,0 

73 DATA 34,68,68,124,68,68,136,0 

74 DATA 4,10,2,2,4,120,128,0 

75 DATA 146,124,16,40,68,130,0,0 

76 DATA 2,124,130,130,66,2,4,0 

77 DATA 146,124,128,124,128,124,0,0 

78 DATA 146,124,64,60,2,124,128,0 

79 DATA 56,68,186,130,130,68,56,0 
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80 DATA 146,124,144,144,144,96,0,0 
ei DATA 66,162,198,134,138,74,52,0 

82 DATA 146,124,144,144,152,102,0,0 

83 DATA 34,84,84,84,84,84,136,0 

84 DATA 88,100,122,66,66,66,132,0 
as DATA 64,128,124,2,2,124,128,0 

86 DATA 64,128,120,68,130,132,120,0 

87 DATA 128,124,2,124,66,68,56,0 

88 DATA 66,132,72,56,36,66,132,0 

89 DATA 68,130,114,10,10,114,140,0 

90 DATA 0,134,138,146,162,194,0,0 

91 DATA 0,254,130,130,130,0,0,0 

92 DATA 64,32,16,8,4,2,0,0 

93 DATA 0,130,130,130,254,0,0,0 

94 DATA 0,32,64,254,64,32,0,0 

95 DATA 1,1,1,1,1,1,1,0 

96 DATA 0,0,128,64,32,0,0,0 

97 DATA 4,42,42,42,28,2,0,0 

98 DATA 0,254,20,34,34,28,0,0 

99 DATA 0,28,34,34,34,20,0,0 

100 DATA 0,28,34,34,20,254,0,0 

101 DATA 0,28,42,42,42,24,0,0 

102 DATA 16,16,126,144,144,64,0,0 

103 DATA 0,24,37,37,25,62,0,0 

104 DATA 0,254,16,32,32,30,0,0 

105 DATA 0,0,34,190,2,0,0,0 

106 DATA 0,2,1,1,33,190,0,0 

107 DATA 0,254,4,8,20,34,0,0 

108 DATA 0,0,130,254,2,0,0,0 

109 DATA 32,62,32,62,32,30,0,0 

110 DATA 0,62,16,32,32,30,0,0 

111 DATA 0,28,34,34,34,28,0,0 

112 DATA 0,63,24,36,36,24,0,0 

113 DATA 0,24,36,36,24,63,0,0 

114 DATA 0,62,16,32,32,16,0,0 

115 DATA 0,18,42,42,42,36,0,0 

116 DATA 32,32,252,34,34,4,0,0 

117 DATA 0,60,2,2,4,62,0,0 

118 DATA 0,56,4,2,4,56,0,0 

119 DATA 0,62,2,28,2,62,0,0 

120 DATA 0,34,20,8,20,34,0,0 

121 DATA 0,56,5,5,5,62,0,0 

122 DATA 0,34,38,42,50,34,0,0 

123 DATA 0,16,108,130,130,130,0,0 

124 DATA 0,0,0,255,0,0,0,0 

125 DATA 0,130,130,130,108,16,0,0 

126 DATA 0,64,128,64,128,0,0,0 
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24,61,37,37,63,30,0,0 

254,254,32,32,62,30,0,0 

0,0,94,94,0,0,0,0 

6,7,1,1,191,190,0,0 

254,254,8,28,54,34,0,0 
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32 REM SCHRIFTTYPE BYTE 

33 DATA 0,0,250,250,250,0,0,0 

34 DATA 0,208,224,0,208,224,0,0 

35 DATA 68,254,68,68,68,254,68,0 

36 DATA 0,116,84,214,84,92,0,0 

37 DATA 226,164,232,16,46,74,142,0 

38 DATA 0,110,146,138,68,2,0,0 

39 DATA 0,0,208,208,224,0,0,0 

40 DATA 0,56,124,198,130,0,0,0 

41 DATA 0,130,198,124,56,0,0,0 

42 DATA 68,40,254,40,68,0,0,0 

43 DATA 0,16,16,124,28,16,0,0 

44 DATA 0,0,13,13,14,0,0,0 

45 DATA 0,24,24,24,24,24,0,0 

46 DATA 0,0,14,14,14,0,0,0 

47 DATA 2,4,8,16,32,64,128,0 

48 DATA 254,142,146,162,254,0,0,0 

49 DATA 130,130,254,2,2,0,0,0 

50 DATA 158,158,146,146,146,242,0,0 

51 DATA 2,146,146,158,254,0,0,0 

52 DATA 248, a, 8,14,254,8,0,0 

53 DATA 246,146,146,158,158,0,0,0 

54 DATA 254,158,146,146,222,0,0,0 

55 DATA 192,142,158,160,192,0,0,0 

56 DATA 254,158,146,146,254,0,0,0 

57 DATA 246,146,146,158,254,0,0,0 

58 DATA 0,0,108,108,108,0,0,0 

59 DATA 0,0,109,109,110,0,0,0 

60 DATA 16,16,40,68,130,0,0,0 

61 DATA 0,108,108,108,108,108,0,0 

62 DATA 130,68,40,16,16,0,0,0 

63 DATA 0,192,128,154,144,144,240,0 

64 DATA 0,0,224,160,160,224,0,0 

65 DATA 254,174,160,160,224,62,0,0 

66 DATA 254,174,162,162,226,62,0,0 

67 DATA 254,158,130,130,130,198,0,0 

68 DATA 254,158,130,130,130,124,0,0 

69 DATA 254,174,162,162,130,130,0,0 

70 DATA 254,174,160,160,160,128,0,0 

71 DATA 254,142,130,146,146,222,0,0 

72 DATA 254,46,32,32,32,254,0,0 

73 DATA 0,0,254,30,0,0,0,0 

74 DATA 4,2,2,2,30,252,0,0 

75 DATA 254,30,16,48,72,134,0,0 

76 DATA 254,30,2,2,2,2,0,0 

77 DATA 254,142,128,254,128,128,126,0 

78 DATA 254,142,128,124,2,254,0,0 

79 DATA 254,142,130,130,130,254,0,0 
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32 REM SCHRIFTTYPE STOP 

33 DATA 0,0,246,246,0,0,0,0 

34 DATA 0,224, 172, 0,224, 192,0,0 

35 DATA 36,126,126,0,126,36,0,0 

36 DATA 36,84,84,214,84,72,0,0 

37 DATA 227,167,232,23,229,199,0,0 

38 DATA 12,114,146,146,146,146,0,0 

39 DATA 0,0,224,192,0,0,0,0 

40 DATA 0,0,56,68,130,130,0,0 

41 DATA 130,130,68,56,0,0,0,0 

42 DATA 0,168,112,216,112,168,0,0 

43 DATA 0,16,16,124,16,16,0,0 

44 DATA 0,7,6,0,0,0,0,0 

45 DATA 0,16,16,16,16,0,0,0 

46 DATA 0,6,6,0,0,0,0,0 

47 DATA 0,6,14,16,224,192,0,0 

48 DATA 124,138,146,162,194,252,0,0 

49 DATA 0,0,64,128,254,0,0,0 

50 DATA 138,146,146,146,146,98,0,0 

51 DATA 130,130,146,146,210,140,0,0 

52 DATA 16,48,80,150,150,16,0,0 

53 DATA 146,146.146,146,146,140,0,0 

54 DATA 0,12,50,194,18,12,0,0 

55 DATA 128,128,134,152,160,128,0,0 

56 DATA 108,146,130,130,146,108,0,0 

57 DATA 0,96,144,134,152,96,0,0 

58 DATA 0,54,54,0,0,0,0,0 

59 DATA 0,55,54,0,0,0,0,0 

60 DATA 16,40,68,16,40,68,0,0 

61 DATA 0,40,40,40,40,0,0,0 

62 DATA 68,40,16,68,40,16,0,0 

63 DATA 0,128,128,138,144,96,0,0 

64 DATA 12,18,30,2,60,18,0,0 

65 DATA 0,14,50,194,50,14,0,0 

66 DATA 158,146,146,146,146,108,0,0 

67 DATA 56,68,130,130,130,130,0,0 

68 DATA 190,130,130,130,68,56,0,0 

69 DATA 158,146,146,146,146,146,0,0 

70 DATA 158,144,144,144,144,144,0,0 

71 DATA 56,68,130,146,146,148,0,0 

72 DATA 254,16,16,16,0,254,0,0 

73 DATA 0,0,130,190,130,0,0,0 

74 DATA 0,2,2,130,188,128,0,0 

75 DATA 254,0,16,40,68,130,0,0 

76 DATA 254,2,2,2,2,2,0,0 

77 DATA 254,128,190,128,128,126,0,0 

78 DATA 254,128,128,128,128,126,0,0 

79 DATA 124,130,130,130,130,124,0,0 
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28,34,34,34,32,63,0,0 

0,30,32,32,32,0,0,0 
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32 REM SCHRIFTTYPE PUDGY 
S0,0,242,0,0i0,0 
1,224,224,0,224,224,0,0 
(,40,254,40,254,40,0,0 
1,36,84,254,84,72,0,0 
1,100,8, 16*38,70,0,0 
1,12,114,138,100,2,0,0 
1,0,224,224,0,0,0,0 
1,0,56,124,254,0,0,0 
1,0,254,124,56,0,0,0 
1,84,56,254,56,84,0,0 
1,16,16,124,16,16,0,0 
1,0,1,6,0,0,0,0 
1,48,48,48,48,48,0,0 
(,0,6,6,0,0,0,0 
:,4,a,16,32,^^i0,0 
1,124,138,146,162,124,0,0 
i,34,66,254,2i2,0,0 
1,70,138,139,146,98,0,0 
(,68,130,146,146,108,0,0 
1,24,40,72,254,8,0,0 
1,244,146,146,146,140,0,0 
1,60,82,146,1^6,12,0,0 
(,192,128,158,160,192,0,0 
(,108,146,146,146,108,0,0 
(,96,146,146,148,120,0,0 
1,0,0,36,0,0,0,0 
(,0,1,38,0,0,0,0 
(,16,56, 124, 2S*»0,O,O 
1, 108,108, 108,108, 108,0,0 
(,0,254,124,56,16,0,0 
1,64, 128, 138,144,96,0,0 
1,124,146,170,154,114,0,0 
(,126,254,240,254,126,0,0 
(,254,254,254,254,108,0,0 
(,124,254,254,198,68,0,0 
1,254,254,254,254,124,0,0 
1,254,254,254,214,198,0,0 
1,254,254,254,208,192,0,0 
1,124,254,254,198,92,0,0 
(,254,254,56,254,254,0,0 
(,198,198,254,254,198,0,0 
,6,6,254,252,128,0,0 
(,254,254,230, 19S, 130,0,0 
(,254,254,6,6,6,0,0 
(,254,254,112,254,254,0,0 
1,254,126,56,252,254,0,0 
1,124,254,254,254,124,0,0 
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I 0,32,64,254,64,32,0,0 
I 1,1,1,1,1,1,1,0 
\ 0,0,128,64,32,0,0,0 
\ 4,46,46,46,28,2,0,0 
0,254,30,62,62,28,* 
0,28,62,62,54,20,0 
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32 REM SCHRIFTTYPE PINDCCHIO 

33 DATA 0,0,246,246,0,0,0,0 

34 DATA 0,192,224,0,192,224,0,0 

35 DATA 0,40,254,40,254,40,0,0 

36 DATA 102,242, 178,255, 15B, 204,0,0 

37 DATA 196,200,16,32,76,140,0,0 

38 DATA 238,254,130,222,222,24,0,0 

39 DATA , 1 92 , 224 ,0,0,0,0,0 

40 DATA 0,0,56,68,130,0,0,0 

41 DATA 0,0,130,68,56,0,0,0 

42 DATA 0,32,112,216,112,32,0,0 

43 DATA 0,16,16,124,16,16,0,0 

44 DATA 0,0,1,6,0,0,0,0 

45 DATA 0,16,16,16,16,16,0,0 . 

46 DATA 0,0,6,6,0,0,0,0 

47 DATA 2,4,8,16,32,64,0,0 

48 DATA 0,254,186,130,186,254,0,0 

49 DATA 0,0,222,158,254,0,0,0 

50 DATA 102,206,158,190,246,102,0,0 

51 DATA 198,198,146,146,254,254,0,0 

52 DATA 248,248,218,30,254,24,0,0 

53 DATA 246,246,178,178,190,156,0,0 

54 DATA 124,254,146,146,222,204,0,0 

55 DATA 224,198,142,158,248,224,0,0 

56 DATA 238,254,186,186,254,238,0,0 

57 DATA 102,246,146,146,254,254,0,0 

58 DATA 0,54,54,0,0,0,0,0 

59 DATA 0,54,55,0,0,0,0,0 

60 DATA 16,40,68,16,40,68,0,0 

61 DATA 0,40,40,40,40,40,0,0 

62 DATA 68,40,16,68,40,16,0,0 

63 DATA 0,192,219,135,248,248,0,0 

64 DATA 0,124,146,170,154,114,0,0 

65 DATA 126,214,208,208,214,126,0,0 

66 DATA 254,254,130,186,254,108,0,0 

67 DATA 124,254,130,130,238,108,0,0 

68 DATA 254,254,186,130,254,124,0,0 

69 DATA 254,254,146,146,214,214,0,0 

70 DATA 254,254,150,146,208,208,0,0 

71 DATA 124,254,130,138,238,108,0,0 

72 DATA 254,254,22,208,254,254,0,0 

73 DATA 0,0,254,254,254,0,0,0 

74 DATA 28,14,198,242,254,252,0,0 

75 DATA 254,254,214,16,254,238,0,0 

76 DATA 254,254,242,198,14,30,0,0 

77 DATA 254,198,240,240,198,254,0,0 

78 DATA 254,246,50,152,222,254,0,0 

79 DATA 0,124,222,198,246,124,0,0 
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254 , 254 , 134 , t 76 , 240 , 96 , , : 
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B2 DATA 
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102 , 242 , 186 , 1 86 , 158 , 204 ,0,0 : 
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REM H 




89 DATA 


246,246,22,210,254,254,0,0 ; 


REM ±] 




90 DATA 


226,142,190,250,226,142,0,0 ; 


REM Z 




91 DATA 


0,254,130,130,130,0,0,0 : 


REM C 




92 DATA 


64,32,16,8,4,2,0,0 : 


REM ., 




93 DATA 


0,130,130,130,254,0,0,0 : 


REM 3 




94 DATA 


0,32,64,254,64,32,0,0 ! 


.REM t 




95 DATA 


1,1,1,1,1,1,1,0 ! 


:REM „ 




96 DATA 


0,0,128,64,32,0,0,0 ! 


iREM 




97 DATA 


110,110,74,74,126,126,0,0 : 


[REM a 




■9a DATA 


254,254,234,34,62,28,0,0 : 


:REM i> 




99 DATA 


60,126,66,66,102,102,0,0 i 


:REM c 




100 DATA 


28,62,34,42,254,254,0,0 : 


:REM d 




101 DATA 


60,126,82,82,86,118,0,0 


sREM e 




102 DATA 


126,254,254,136,224,96,0,0 


:REM r 




103 DATA 


51,123,73,73,127,63,0,0 


:REM 3 




104 DATA 


254,254,208,16,62,62,0,0 


:REM Ft 




IDS DATA 


0,0,190,190,190,0,0,0 


:REM i 




106 DATA 


6,7,1,191,191,190,0,0 


:REM J 




107 DATA 


254,254,214,16,62,38,0,0 


sREM It 




108 DATA 


0,0,254,254,254,0,0,0 


;REM 1 




109 DATA 


0,126,102,112,102,126,0,0 


iREM n 




110 DATA 


126,126,102,96,102,62,0,0 


:REM n 




111 DATA 


0,60,110,102,118,60,0,0 


:REM 




112 DATA 


63,63,36,38,62,28,0,0 


:REM p 




113 DATA 


28,62,38,36,63,63,0,0 


:REM a 




114 DATA 


126,126,126,64,96,96,0,0 


:REM r 




115 DATA 


102,114,122,94,78,102,0,0 


:REM s 




116 DATA 


0,32,252,254,254,46,0,0 


:REM t 




117 DATA 


126,126,6,118,126,126,0,0 


:REM U 




118 DATA 


126,126,14,30,120,96,0,0 


:REM V 




119 DATA 


0,126,102,14,102,126,0,0 


:REM Q 




120 DATA 


0,110,126,16,126,110,0,0 


sREM « 




121 DATA 


123,123,11,105,127,127,0,0 


:REM H 




122 DATA 


102,78,94,122,114,102,0,0 


;REM Z 




123 DATA 


16,48,80,144,80,48,16,0 


:REM -^ 




124 DATA 


0,0,0,0,0,0,0,0 


:REM 




125 DATA 


0,0,0,0,0,0,0,0 


:REM 




126 DATA 


0,0,0,0,0,0,0,0 


:REM 



Abb. C.8: Der Schrifttyp PINOCCHIO (Fortsetzung) 
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32 REM SCHRIFTTYPE OUTLINE 

33 DATA 0,0,0,244,244,244,0,0 : 

34 DATA 0,208,224,0,208,224,0,0 : 

35 DATA 0,40,124,40,40,124,40,0 : 

36 DATA 0,116,84,214,84,92,0,0 : 

37 DATA 66,164,72,16,36,74,132,0 : 

38 DATA 0,108,210,138,68,10,0,0 ; 

39 DATA 0,0,0,208,224,0,0,0 : 

40 DATA 0,56,124,254,198,130,0,0 : 

41 DATA 0,130,198,254,124,56,0,0 : 

42 DATA 0,168,112,80,112,168,0,0 J 

43 DATA 0,16,16,124,16,16,0,0 ! 

44 DATA 0,0,0,13,14,0,0,0 ; 

45 DATA 0,24,24,24,24,24,24,0 i 

46 DATA 0,0,0,12,12,0,0,0 ! 

47 DATA 0,12,28,56,112,224,192,0 ; 

48 DATA 124,254,154,178,254,124,0,0 ; 

49 DATA 34,98,254,254,2,2,0,0 ! 

50 DATA 66,198,142,154,242,98,0,0 : 

51 DATA 68,198,146,146,254,108,0,0 ; 

52 DATA 24,56,104,200,254,254,0,0 i 

53 DATA 244,246,146,146,158,140,0,0 

54 DATA 60,126,210,146,158,12,0,0 i 

55 DATA 192,192,158,190,224,192,0,0 

56 DATA 108,254,146,146,254,108,0,0 

57 DATA 96,240,146,150,252,120,0,0 

58 DATA 0,0,0,108,108,0,0,0 

59 DATA 0,0,0,109,110,0,0,0 

60 DATA 0,16,56,124,254,0,0,0 

61 DATA 0,40,40,40,40,40,40,0 

62 DATA 0,0,254,124,56,16,0,0 

63 DATA 0,96,192,202,218,240,96,0 

64 DATA 28,63,63,94,191,63,28,0 

65 DATA 127,193,183,180,183,193,127,0 

66 DATA 255,129,173,173,173,211,110,0 

67 DATA 126,195,189,165,189,219,126,0 

68 DATA 255,129,189,189,219,102,60,0 

69 DATA 126,195,173,173,189,219,126,0 

70 DATA 127,193,175,168,184,208,112,0 

71 DATA 126,195,189,165,173,235,110,0 

72 DATA 255,129,239,40,239,129,255,0 

73 DATA 231,165,189,129,189,165,231,0 

74 DATA 14,11,13,5,253,131,254,0 

75 DATA 255,129,231,36,90,165,195,0 

76 DATA 255,129,253,5,5,5,7,0 

77 DATA 255,129,191,136,191,129,255,0 

78 DATA 255,129,223,40,247,129,255,0 

79 DATA 126,195,189,165,189,195,126,0 



REM 


I 


:REM 


5]r 


:REM 


*t 


:REM 


Sp 


:REM 


.■■* 


:REM 


& 


:REM 


J 


:REM 


€ 


:REM 


> 


:REM 


io^ 


!REM 


+ 


sREM 


) 


:REM 


— 


:REM 


. 


:REM 


^ 


:REM 


% 


:REM 


1 


:REM 


2 


sREM 


3 


5 REM 


A 


sREM 


5 


:REM 


6 


:REM 


7 


:REM 


8 


:REM 


9 


:REM 


: 


sREM 


11 


sREM 


< 


:REM 


= 


:REM 


> 


:REM 


'> 


:REM 


# 


:REM 


m 


:REM 


m 


:REM 


r^ 


:REM 


\B> 


:REM 


® 


sREM 


IP 


:REM 


© 


:REM 


Kl 


:REM 


s 


sREM 


^ 


sREM 


m 


:REM 


(k 


:REM 


m 


:REM 


m 


:REM 


® 
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BO 


DATA 


81 


DATA 


82 


DATA 


83 


DATA 


84 


DATA 


85 


DATA 


86 


DATA 


87 


DATA 


sa 


DATA 


89 


DATA 


90 


DATA 


91 


DATA 


92 


DATA 


93 


DATA 


94 


DATA 


95 


DATA 


96 


DATA 


97 


DATA 


98 


DATA 


99 


DATA 


100 


DATA 


101 


DATA 


102 


DATA 


103 


DATA 


104 


DATA 


105 


DATA 


106 


DATA 


107 


DATA 


108 


DATA 


109 


DATA 


110 


DATA 


111 


DATA 


112 


DATA 


113 


DATA 


114 


DATA 


n5 


DATA 


116 


DATA 


117 


DATA 


118 


DATA 


119 


DATA 


120 


DATA 


121 


DATA 


122 


DATA 


123 


DATA 


124 


DATA 


125 


DATA 


126 


DATA 



255,129,183,180,180,204,120,0 

126,195,189,181,185,195,126,0 

255,129,183,180,178,205,123,0 

119,221,173,173,173,179,238,0 

224,160,191,129,191,160,224,0 

254 , 131 , 253 ,5, 253 , 131 , 254 ,0 

248,132,250,5,250,132,248,0 

255,129,253,17,253,129,255,0 

195,165,90,36,90,165,195,0 

224 , 144 , 239 , 17 , 239 , 144 , 224 , 

227, 165, 169, 181 , 173, 149,231 ,0 

0,252,252,204,204,0,0,0 

0,192,224,112,56,28,12,0 

0,0,0,204,204,252,252,0 

16,48,112,240,112,48,16,0 

2,2,2,2,2,2,2,0 

0,0,0, 224 , 208 , O , O , O 

4,46,42,42,62,30,0,0 

254,254,34,34,62,28,0,0 

28,62,34,34,54,20,0,0 

28,62,34,34,254,254,0,0 

28, 62, 42, 42, 58, 24 J 0,0 

16,126,254,144,208,64,0,0 

24,61,37,37,63,30,0,0 

254,254,32,32,62,30,0,0 

0,0,190,190,0,0,0,0 

2,3,1,1,191,190,0,0 

254,254,8,28,54,34,0,0 

0,0,254,254,0,0,0,0 

30 , 62 , 32 , 56 , 32 , 62 , 30 , O 

30,62,32,32,62,30,0,0 

28,62,34,34,62,28,0,0 

31,63,36,36,60,24,0,0 

24,60,36,36,63,31,0,0 

30,62,32,32,48,16,0,0 

18,58,42,42,46,36,0,0 

32,252,254,34,38,4,0,0 

60,62,2,2,62,60,0,0 

56 , 60 , 6 , 6 , 60 , 56 , , O 

60,62,2,14,2,62,60,0 

34,54,28,28,54,34,0,0 

56,61,5,5,63,62,0,0 

34,38,46,58,50,34,0,0 

0,0,16,124,254,130,130,0 

0,0,0, 255 , 255 , , O , O 

O , 1 30 , 1 30 , 254 , 1 24 , 1 6 , O , 

0,0,0,0,0,0,0,0 



REM 09 

REM ® 

REM ^ 

REM S 

REM ¥ 

REM [a 

REM ns 
REM m 
REM K 
REM IP 
REM g 
REM c 
REM N* 
REM a 
REM ^ 
REM _ 
REM '■ 
REM a 
REM b 
REM c 
REM d 
REM e 
REM € 
REM « 
REM h 
REM i 
REM J 
REM k 
REM I 
REM n 
REM n 
REM o 
REM p 
REM qi 
REM n 
REM s: 
REM t 
REM u 
REM V 
REM u 
REM X 
REM y 
REM ^ 
REM C 
REM I 
REM > 
REM 



Abb. C.9: DerSchrifttyp OUTLINE (Fortsetzung) 



Anhang 



141 



D 



Alphabetische Liste der BASIC- Schlusselworter einschlieBIich Kurz- 
kommentaren 

Anweisung: ©-Symbol 

Beispiel: PRINT@10,"HALLO" 

Das @-Symbol ist eine Funktion, die ausschlieBlich in Verbindung mit 
der PRINT- Anweisung verwendet wird. Durch das Symbol wird 
bestimmt, da6 die Ausgabe eines Textes auf dem Bildschirm ab einer 
bestimmten Bildschirmposition erfolgen soil. Zulassige Werte zur Kenn- 
zeichnung der Bildschirmposition liegen zwischen und 959, wobei der 
Wert die linke obere Bildschirmecke kennzeichnet, 959 die rechte 
untere (s. a. BASIC-Handbuch S. 126). 

Anweisung: ABS(W) 
Beispiel: X=ABS(-5) 

ABS ist eine numerische Funktion, die den Absolutbetrag der im Argu- 
ment vereinbarten Zahl liefert. In unserem Beispiel wird der Variablen X 
der Wert 5 zugewiesen. 

Anweisung: AND 

Beispiel: IF (X=2) AND (Y=4) THEN PRINT"X=2,Y=4" 

AND ist ein logischer Operator. 

Er kann verwendet werden, um einen zusammengesetzten Ausdruck 
innerhalb einer IF/THEN- Anweisung zu bilden und dessen Wahrheitsge- 
halt zu prufen. Im Beispiel wird nur dann der Text X=2,Y=4 ausgege- 
ben, wenn die Variable X den Wert 2 und die Variable Y den Wert 4 hat 
(siehe dazu auch das Kapitel „Operatoren"). 

Anweisung: ASC(W) 

Beispiel: S$="A" : X=ASC(S$) 

ASC ist eine Zeichenkettenfunktion. Sie ermittelt den ASCII-Code des 
ersten im Argument angegebenen Textzeichens. 

Anweisung: ATN(W) 
Beispiel: X=ATN("8) 

ATN ist eine numerische Funktion. Sie liefert den Arcustangens des in 
der Klammer vorgegebenen Arguments. (Der Arcustangens einer 
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Zahl X ist definiert als Winkel, dessen Tangens gleichx ist.) Das Ergebnis 
einer ATN-Funktion wird im Bogenmafi angegeben. Die Umrechnung 
eines Winkels in Grad erhalten Sie, wenn Sie das Ergebnis der ATN- 
Funktion mit (180/3.1415927) multiplizieren. 

Anweisung: BGRD 
Beispiel: BGRD 

Mit BGRD wird im Grafik-Modus auf der FGR-Bildschirmebene die 
Farbe Magenta als Hintergrundfarbe definiert. 

Anweisung: CALL n 
Beispiel: CALL01C9 

Mit CALL n wird ein Maschinenunterprogramm aufgerufen, das sich im 
Rechnerspeicher befindet und die Startadresse n besitzt. Im Beispiel wird 
das Unterprogramm ausgefuhrt, zu dem der Rechner verzweigt, wenn er 
die Anweisung CLS vorfindet. 

Anweisung: CDBL 

Beispiel: PRINT CDBL (22/7) 

Durch die CDBL-Funktion wird der Rechner angewiesen, das Ergebnis 
einer Berechnung in doppelter Genauigkeit auszugeben oder weiterzu- 
verarbeiten. 

Anweisung: CHAR n ^ 

Beispiel: CHAR 1 

Durch CHAR wird einer der 4 Zeichensatze des Colour- Genie ange- 
wahlt. Das Argument n mu6 eine ganze Zahl zwischen 1 und 4 sein. 

Anweisung: CHR$(W) 
Beispiel: PRINT CHR$(230) 

CHR$ ist eine Zeichenkettenfunktion. CHR$ liefert als Ergebnis das 
Zeichen, das dem ASCII-Code des Arguments entspricht. Der Wert des 
Arguments mufi eine ganze Zahl zwischen und 255 sein. 

Anweisung: CINT(W) 
Beispiel: PRINT CINT( - 1 .5) 

CINT (s. a. INT(W)) liefert den ganzzahligen Wert einer Zahl. Bei posi- 
tiven Zahlen sieht das so aus, da6 einfach der Bruchteil der Zahl gestri- 
chen wird. Ist das Argument W der CINT-Funktion negativ, so hefert 
CINT die nachstniedrigere ganze Zahl. 

Der einzige Unterschied zwischen CINT und INT ist der, da6 fiir CINT 
als Argument nur Werte zwischen —32768 und +32767 zulassig sind. Fiir 
die INT-Funktion gilt diese Beschrankung nicht. 
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Anweisung: CIRCLE xl,yl,r 
Beispiel: CIRCLE 40,20,10 

CIRCLE ist ein Grafikbefehl, der das Zeichnen eines Kreises bewirkt. 
Kreise konnen nur auf der FGR-Bildschirmebene dargestellt werden 
(s. a. FGR). Vor der CIRCLE- Anweisung muB eine Bildschirmhinter- 
grundfarbe und eine Malfarbe vorgegeben werden (s. a. FCLS n und 
FCOLOUR n). Die Argumente xl und yl kennzeichnen den Kreismittel- 
punkt (X- und Y-Koordinate). Fiir xl sind Werte zwischen und 159, fiir 
yl Werte zwischen und 102 zulassig. 

Anweisung: CLEAR n 
Beispiel: CLEAR 2000 

CLEAR loscht zuerst alle Variablen. Dann wird so viel Speicherplatz (in 
Bytes) fiir die Daten von Zeichenkettenvariablen reserviert, wie im Argu- 
ment n vorgegeben ist. 

Anweisung: CLOSE n (nur Disk-BASIC) 
Beispiel: CLOSE 1 

Mit der Anweisung CLOSE wird eine auf Diskette angelegte und mit 
OPEN eroffnete Datei geschlossen. Das Argument n kennzeichnet die 
Kanalnummer, unter der die Datei eroffnet wurde. Wird kein Argument 
angegeben, dann werden alle eroffneten Dateien geschlossen. 

Anweisung: CLS 
Beispiel: CLS 

Durch die CLS- Anweisung wird der LGR-Bildschirm (s. a. LGR) 
geloscht und der Cursor in die linke obere Bildschirmecke positioniert. 

Anweisung: COLOUR n 
Beispiel: COLOUR 1 

Durch die COLOUR- Anweisung wird die Vordergrundfarbe (das ist die 
Farbe, in der alle Folgezeichen auf dem LGR-Bildschirm ausgegeben 
werden soUen) angewahlt. Das Argument n kann Werte zwischen 1 und 
16 annehmen. 

Anweisung: CONT 
Beispiel: CONT 

Mit der CONT- Anweisung wird ein ablaufendes und durch Betatigung 
der BREAK-Taste oder durch eine STOP- Anweisung unterbrochenes 
Programm ab der Stelle fortgefuhrt, an der die Unterbrechung erfolgte. 
Die CONT- Anweisung wird nur dann vom Rechner ausgefiihrt, wenn 
zwischenzeithch keine Veranderungen am Programm vorgenommen 
wurden. 
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Anweisung: COS(W) 

Beispiel: PRINT COS(3. 1415927) 

Die Cosinus-Funktion liefert den Cosinus eines Wikels W. Der Winkel 
muB im BogenmaB angegeben werden. Soil die Eingabe im GradmaB 
erfolgen, lautet die Eingabe COS(W * 0.01745329) oder COS(W / 180 * 
3.1415927). 

Anweisung: CPOINT(xl,yl) 
Beispiel: PRINT CPOINT(40,30) 

CPOINT ist eine Grafikanweisung. CPOINT priiftj ob sich an der durch 
(xl,yl) vorgegebenen Bildschirmstelle auf der FGR-Bildschirmebene ein 
Bildpunkt befindet oder nicht. Ist dies der Fall, liefert CPOINT den Wert 
— 1. Befindet sich an der betreffenden Bildschirmstelle kein Bildpunkt, 
liefert CPOINT den Wert 0. 

Anweisung: DATA 

Beispiel: DATA 10,4, "ANTON" 

Die DAT A- Anweisung enthalt Datenelemente, die durch einen READ- 
Befehlin ein Programm iibernommen werden (s. a. RESTORE READ). 

Anweisung: DEFDBL n 
Beispiel: DEFDBL A,B-D 

Durch DEFDBL werden alle in einem Programm erscheinenden Varia- 
blen, die den Anfangsbuchstaben n haben, als Variable mit doppelter 
Genauigkeit definiert. Variablen doppelter Genauigkeit werden vom 
Rechner mit 16 signifikanten Ziffern gespeichert. 

Anweisung: DEFFN f(x) (nur unter Disk-BASIC oder nach Laden 
des Maschinenprogramms aus dem Anhang A verfiig- 
bar). 

Beispiel: DEFFN F(X)-SQR(X) 

DEF FN definiert eine Funktion, die im Programm durch FN name(x) 
aufgerufen werden kann. 

Anweisung: DEFINT n 
Beispiel: DEFINT A,B-D 

Durch DEFINT werden alle in einem Programm erscheinenden Varia- 
blen, die den Anfangsbuchstaben n haben, als ganzzahUg definiert (s. a. 
DEFDBL). 

Anweisung: DEFSNG n 
Beispiel: DEFSNG A,B-D 
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Durch DEFSNG werden alle in einem Programm erscheinenden Varia- 
blen, die den Anfangsbuchstaben n haben, als Variablen mit einfacher 
Genauigkeit definiert (s. a. DEFDBL). 

Anweisung: DEFSTR n 
Beispiel: DEFSTR A,B-D 

Durch DEFSTR werden alle in einem Programm erscheinenden Varia- 
blen, die den Anfangsbuchstaben n haben, als Zeichenkettenvariablen 
definiert (s. a. DEFDBL). 

Anweisung: DELETE n 
Beispiel: DELETE 10,20-60 

Durch die DELETE- Anweisung werden einzelne Zeilen oder ganze Pro- 
grammteile geloscht. 

Anweisung: DIM 
Beispiel: DIMA(20) 

Durch die DIM-Anweisung wird die GroBe eines Variablenfeldes defi- 
niert. Eine DIM-Anweisung mu6 nur dann angegeben werden, wenn die 
Anzahl der Elemente eines Feldes groGer als 10 sein soil. Bei Zeichenket- 
tenfeldern mu6 vor der Dimensionierung durch eine CLE AR- Anweisung 
ausreichend Platz zur Verftigung gestellt werden. 

Anweisung: EDITn 
Beispiel: EDIT 10 

Die EDIT-Anweisung ruft den Zeileneditor zur Korrektur von Pro- 
grammzeilen auf . 

Anweisung: END 

Beispiel: IF W= 100 THEN END 

Ende-Statement eines BASIC-Programms. Es kann weggelassen werden, 
wenn nachfolgend keine Unterprogramme oder Programmsegmente 
mehr vereinbart sind. 

Anweisung: ERL 
Beispiel: PRINT ERL 

Die ERL- Anweisung gibt die Programmzeile an, in der der Rechner auf 
einen Fehler stieB. 

Anweisung: ERR 

Beispiel: PRINT ERR/2-hl 

Die ERR- Anweisung sollte ausschlieBlich wie im Beispiel verwendet wer- 
den. Sie gibt dann die Fehlercodenummer an, die dem aufgetretenen Feh- 
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ler entspricht. Die auf Seite 47 des BASIC-Handbuchs aufgefuhrten Feh- 
lermeldungen sind dort zwar ohne Fehlercodenummer aufgefiihrt, stehen 
diesbeziiglich jedoch in der richtigen Reihenfolge. 

Anweisung: ERROR n 
Beispiel: ERROR 10 

Die ERROR-Anweisung dient zur Simulation eines Fehlers. Wird die 
ERROR- Anweisung eingesetzt, so verhalt sich der Rechner genauso, als 
ware der Fehler tatsachlich aufgetreten. 

Anweisung: EXP(W) 
Beispiel: PRINT EXP(4) 

Die EXP-Funktion ist eine numerische Funktion. Sie berechnet die 
Exponentialfunktion des Arguments X. 

Anweisung: FCLS n 
Beispiel: FCLS 1 

Die FCLS- Anweisung ist eine Grafikfunktion. Durch sie wird die Hinter- 
grundfarbe des hochauflosenden Bildschirms ausgewahlt. Zulassig fiir 
das Argument n sind Werte zwischen 1 und 4. 

Anweisung: FCOLOUR n 
Beispiel: FCOLOUR 2 

Die FCOLOUR- Anweisung ist eine Grafikfunktion. Durch sie wird die 
Vordergrundfarbe des hochauflosenden Bildschirms definiert. Zulassig 
fiir das Argument n sind Werte zwischen 1 und 4. Vorder- und Hinter- 
grundfarbe des FGR-Bildschirms diirfen nicht identisch sein (s. a. FCLS 

' Anweisung: FGR 

Beispiel: FGR 

Durch die FGR- Anweisung wird auf den hochstauflosenden Grafikbild- 
schirm umgeschaltet. Diese Umschaltung kann auch iiber die Tastatur 
durch Betatigung der Tasten <CTRL> und <MOD SEL> erfolgen. 

i 

' Anweisung: FILLn 

: Beispiel: — 

FILL n wurde durch FCLS n ersetzt . 

' Anweisung: FIX 

: Beispiel: PRINTFIX(-2.5) 
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FIX ist eine numerische Funktion. Sie bildet im Gegensatz zu INT den 
ganzzahligen Wert einer Zahl nicht durch Abrunden, sondern durch 
Abschneiden der Nachkommastellen. FIX(-2.5) ist -2, INT(-2.5) 
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Anweisung: FKEY 

Beispiel: FKEYl = "PRINT®" 

Durch die FKEY- Anweisung konnen den 8 Funktionstasten (<F1> bis 
<F8>) neue Werte zugewiesen werden. Diese werden dann bei Betati- 
gung der jeweiligen Funktionstaste auf dem Bildschirm ausgegeben. 
Wenn Sie in einem Programm abfragen woUen, ob eine bestimmte Funk- 
tionstaste betatigt wurde, miissen Sie die Speicheradresse F808 abfragen. 
Bei Betatigung von <F1> steht an dieser Adresse eine 16, bei <F2> eine 
32, bei <F3> eine 64 und bei <F4> eine 128. Wurde zusatzlich noch die 
<Shift>-Taste betatigt, enthalt die Speicheradresse F880 eine 1. 

Anweisung: FOR . . . NEXT . . . STEP 
Beispiel: FOR X=l TO 5 STEP .5 

Schleifenvereinbarung. 

Anweisung: GET k,n (nur unter Disk-B ASIC verfugbar) 
Beispiel: GET 1,4 

GET dient zum Lesen eines Satzes aus einer Direktzugriffsdatei. Das 
Argument k ist die Kanalnummer, unter der die Datei eroffnet wurde. n 
ist die Satznummer, die gelesen werden soil. 

Anweisung: GOSUB n 
Beispiel: GOSUB 1000 

Durch die GO SUB -Anweisung wird ein Unterprogramm angesprungen. 

Anweisung: GOTO n 
Beispiel: GOTO 100 

Durch die GOTO- Anweisung erfolgt eine unbedingte Verzweigung zu 
der durch n vorgegebenen Zeilennummer. 

Anweisung: IF . . . THEN . . . ELSE 
Beispiel; IF X=10 THEN 20 ELSE 30 

Abfrage einer logischen Bedingung mit alternativer Ausfiihrung oder 
bedingten Spriingen. 

Anweisung: INKEY$ 
Beispiel: Y$=INKEY$ 
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INKEY$ ist eine Zeichenkettenfunktion. Trifft der Rechner auf ein 
INKEY$, fragt er fiir Sekundenbruchteile die Tastatur ab, ob dort eine 
Taste betatigt wurde. Ist dies der Fall, wird der ASCII- Wert der betatig- 
ten Taste an die Zeichenketten variable iibergeben. 

Anweisung; INPUT w 
Beispiel: INPUT A 

Allgemeiner Befehl zur Eingabe von Daten. 

Anweisung: INSTR(n,wl,w2) 

Beispiel: X=INSTR("3/'AABBBC',"B") 

INSTR ist eine Zeichenkettenfunktion. Sie testet eine Zeichenkette auf 
das Vorhandensein eines vorgegebenen Textelements. Im Beispiel wird 
die Stelle in der Zeichenkette AABBBC gesucht, an der der Buchstabe B 
zum drittenmal auftritt. 

Anweisung: INT 

Beispiel: PRINT INT(-2.5) 

INT ist eine numerische Funktion. Sie bildet aus einer gebrochenen Zahl 
einen ganzzahligen Wert mit vorzeichenabhangiger Rundung. (Vgl. auch 
CINT, FIX). 

Anweisung: JOY(n) 
Beispiel: PRINT JOY(l) 

JOY ermittelt einen der Potentiometerstellung der Joysticks proportiona- 
len Zahlenwert zwischen und 255 . 

Anweisung: KEYPAD (n) 
Beispiel: PRINT KEYPAD(l) 

KEYPAD ermoglicht ein indiziertes Ansprechen der Joysfick-Tastatu- 
ren. 

Anweisung: LEFTS (s$,n) 
Beispiel: PRINT LEFT$("123",2) 

LEFTS ist eine Zeichenkettenfunktion. Eine Zeichenkette S wird Hnks- 
biindig nach dem n-ten Zeichen „abgeschnitten". 

Anweisung: LET 
Beispiel: LET X=4 

Durch die LET-Anweisung wird die Wertzuweisung an eine Variable 
besonders betont. 
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Anweisung: LSET (Disk-BASIC-Anweisung) 
Beispiel: LSETA$=B$ 

Durch die LSET-Anweisung wird eine Zeichenkette linksbiindig in einer 
anderen abgelegt. 

Anweisung: LEN(s$) 
Beispiel: L=LEN(S$) 

LEN ist eine Zeichenkettenfunktion. Das Ergebnis ist die Anzahl der im 
Argument enthaltenen Zeichen. 

Anweisung: LGR 
Beispiel: LGR 

Durch die LGR-Anweisung wird vom FGR-Bildschirm fiir hochauflo- 
sende Grafik auf den Textbildschirm umgeschaltet. 

Anweisung: LINE INPUT (Nur unter Disk-B ASIC verfugbar) 
Beispiel: LINE INPUT A$ 

J 

LINE INPUT ist ein Befehl zur Eingabe beliebiger Tastaturzeichen (im 
Gegensatz zu INPUT konnen hierzu auch Zeichen wie : und , gehoren). 

Anweisung; LIST 
Beispiel: LIST 10-50 

LIST erstellt ein Programlisting auf dem Bildschirm, 

Anweisung: LLIST 
Beispiel: LLIST 10-50 

LLIST gibt ein Programmlisting auf einem angeschlossenen Drucker aus. 

Anweisung: MEM I 

Beispiel: PRINT MEM 

MEM ermittelt den fur den Anwender verbleibenden Speicherumfang in 
Bytes. 

Anweisung: MID$ (S$,x,n) 

Beispiel: A$=MID$("ANFANG",3,2) 

MID$ ist eine Zeichenkettenfunktion zur Trennung einzelner oder meh- 
rerer Zeichen aus Textelementen. 

Anweisung: NAME 
Beispiel: NAME 

NAME ist eine Anweisung, die ahnlich wie USR vom Anwender uber 
bestimmte Speicheradressen mit Daten versehen wird. Die Werte, die in 
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diese Speicheradressen geladen werden, werden dann bei Aufruf von 
NAME vom Rechner als Startadresse eines Unterprogramms interpre- 
tiert. NAME wird liber die Adressen 16782 und 16783 mit Daten versorgt 
(s. a. USR). 

Anweisung; NBGRD 
Beispiel: NBGRD 

Durch die NBGRD- Anweisung wird eine durch FCLS oder BGRD ange- 
wahlte Hintergrundfarbe des FGR-Bildschinns wieder abgeschaltet (s. a. 
BGRD, FCLS n). 

I 
Anweisung: NEW 
Beispiel: NEW 

NEW loscht ein sich im Rechnerspeicher befindendes Programm. 

Anweisung: NOT 

Beispiel: IF NOT(A=4) THEN PRINT "A<>4" 

NOT ist wie AND und OR ein logischer Operator. NOT verandert den 

logischen Ausdruck in einer IF- Anweisung. Es liefert den Wert eines 

Ausdrucks folgendermaGen modifiziert: 

War der logische Ausdruck wahr, wird er durch NOT falsch. 

War der logische Ausdruck falsch, wird er durch NOT wahr. 

I 
Anweisung: NPLOT xl ,yl (TO x2,y2) 
Beispiel: NPLOT 10,10 (TO 20,20) I 

NPLOT loscht einen Punkt oder eine Linie auf dem FGR-Bildschirm, die 
zuvor durch eine PLOT- Anweisung gezeichnet wurde. 

Anweisung: NSHAPE x,y 
Beispiel: NSHAPE 10,10 

Eine mit Hilfe der SHAPE- Anweisung auf dem FGR-Bildschirm erstellte 
Figur wird geloscht. 

Anweisung: ON...GOSUB 

Beispiel: ON X GOSUB 100,200,300 

Ergebnisabhangiger Sprung zu Unterprogrammen. 

Anweisung: ON ... GOTO 

Beispiel: ON X GOTO 100,200,300 

Ergebnisabhangiger Sprung. 

Anweisung: OPEN (nur Disk-BASIC) 
Beispiel: OPEN"0",1,"TEST" 
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Eroffnen einer Datei auf Diskette, 

Anweisung: PAINT x,y,fl,f2 
Beispid: PAINT 10,10,3,2 

PAINT ist eine Grafikanweisung zum f arbigen Ausmalen von Flachen auf 
dem FGR-Bildschirm. Ausgemalt warden konnen nur in sich geschlos- 
sene Flachen. Beim Ausmalen einer Flache sucht der Rechner beim 
Zeichnen jeder einzelnen Linie nach einer oder mehreren Begrenzungs- 
farben, bei denen das farbige Ausfiillen enden soil. 

Anweisung: PEEK 

Beispiel: PRINT PEEK(IOOOO) 

PEEK ist eine Anweisung zum Auslesen des AdreBinhalts einer bestimm- 
ten SpeichersteUe. 

Anweisung: PLAY 
Beispiel: PLAY (1,4,1,15) 

PLAY ist ein Befehl zur Erzeugung musikalischer Klange iiber einen spe- 
ziellen Baustein zur Tonerzeugung. 

Anweisung: PLOT xl ,yl <TO x2,y2> 
Beispiel: PLOT 10,10 TO 20,20 

PLOT ist ein Grafikbefehl , mit dem Punkte oder Linien auf dem FGR- 
Bildschirm erstellt werden konnen (s. a. NPLOT, FCOLOUR). 

Anweisung: POKE ad,w 
Beispiel: POKE HF400,255 

POKE ist ein Befehl zum Laden einer Speicheradresse ad mit einera Wert 
w(s. a. PEEK). 

Anweisung: POS(x) 
Beispiel: PRINT POS(O) 

POS ermittelt die relative horizontale Position des Cursors auf dem Bild- 
schirm. Das Argument x ist eine sog. „Dummy variable" und ohne Bedeu- 
tung, muJ3 aber beim Aufruf der Funktion mit angegeben werden. 

■ 
Anweisung: PRINT 

Beispiel: PRINT"HALLO" 

PRINT ist ein Befehl zur Ausgabe von Daten auf den Bildschirm, auf 
Kassette oder auf Diskette. 
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Anweisung: PRINT USING 

Beispiel: PRINT USING" ##+.##DM";M 

PRINT USING ist ein Befehl zur formatierten Ausgabe von Daten auf 
dem Biidschirm. Die hinter dem USING stehende Zeichenkette gibt an, 
in welcher Form die Ausgabe von Daten erfolgen soil. 

Anweisung: PUT (nur Disk-BASIC) 
Beispiel: PUT 1,4 

In einer unter Disk-BASIC eroffente Direktzugriffsdatei wird durch PUT 
ein Datensatz mit einer vorgegebenen Satznummer abgelegt (s. a. GET). 

Anweisung: RANDOM 
Beispiel: RANDOM 

Die Anweisung RANDOM bewirkt, da6 das sich im Microsoft-BASIC 
befindende Programmelement, das fiir die Erzeugung von Zufallszahlen 
zustandig ist, mit neuen Werten versehen wird. Dadurch wird die „Zufal- 
ligkeit" von Zufallszahlen erhoht. 

Anweisung: READ 
Beispiel: READ W,W1 

READ ist ein Einlesebefehl fur Daten, die innerhalb eines Programms 
unter DATA-Anweisungen abgelegt sind, 

Anweisung: REM 

Beispiel: REM hier konnen Anmerkungen innerhalb des Pro- 

gramms stehen 

Steht am Anf ang einer Programmzeile die Anweisung REM oder das Zei- 
chen <'>, wird alles, was dahinter steht, vom Rechner bei der 
Programmausfuhrung iiberlesen. 

Anweisung: RENUM 
Beispiel: RENUM 10,1 

RENUM ist ein Befehl zum Umnumerieren von Programmzeilen. 

Anweisung: RESTORE 

Beispiel: RESTORE ' 

Die Anweisung RESTORE bewirkt, daB der Zeiger fiir die READ- 
Anweisung auf das erste Datenelement in der ersten DAT A- Anweisung 
zuriickgesetzt wird. 

Anweisung: RESUME n 
Beispiel: RESUME 10 
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Wurde nach Auftreten eines Programmfehlers durch eine ON ERROR 
GOTO-Routine zu einer bestimmten Zeilennummer verzweigt, kann der 
Rechner dort durch eine RESUME-Anweisung angewiesen werden, die 
Programmausfuhrung ab einer bestimmten Zeilennummer n wiederauf- 
zunehmen. 

Anweisung: RETURN 
Beispiel: RETURN 

RETURN ist eine Anweisung an den Rechner, von einem Unteipro- 
gramm, zu dem durch eine GO SUB- Anweisung verzweigt wurde, wieder 
ins Hauptprogramm zuriickverzweigen. 

Anweisung: RIGHT$(S$,n) 

Beispiel: PRINT RIGHTS ("123", 2) j 

Eine Zeichenkette S$ wird hinter dem n-ten Zeichen von rechts „abge- 
schnitten" (s. a. LEFT$, MID$). 

Anweisung: RND(x) 

Beispiel: PRINT RND(0),RND (100) 

Die RND-Funktion dient zur Erzeugung einer Zufallszahl zwischen und 
dem vorgegebenen Argument. Ist dieses ungleich 0, werden iiber den 
Zufallsgenerator ausschlieBIich ganzzahlige Werte erzeugt. Ist das Argu- 
ment X gleich 0, werden Gleitkommazahlen ausgegeben, deren Werte 
zwischen und 1 liegen. 

Anweisung: SCALE n 
Beispiel: SCALE 2 

SCALE dient zur Festlegung des GroBenfaktors, mit der eine in der 
Shapetabelle des Colour-Genie (Adresse 7F00H bei 16k-Geraten, 
Adresse BFOOH bei 32k-Geraten) definierte Figur ausgegeben werden 
soil (s. a. SHAPE, NSHAPE). 

Anweisung: SIN(x) 

Beispiel: PRINT SIN(3. 1415927/4) 

SIN ist eine mathematische Funktion. Sie berechnet den Sinus eines 
Arguments, das im BogenmaB vorgegeben werden mu6 (s. a. COS, 

TAN,ATN). 

Anweisung: SOUND 

Beispiel: SOUND 4,3 , 

SOUND ist eine Anweisung zur SteuerungdesTongeneratorbausteins im 
Colour- Genie. Mit SOUND werden Spezialtoneffekte erzeugt. 
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Anweisung: SQR(x) 

Beispiel: PRINT SQR(2) ' 

SQR ist eine Funktion zur Berechnung der Quadrat wurzel des durch x 
vorgegebenen Arguments. 

Anweisung: STOP 

Beispiel: IF Z= 10 THEN STOP 

Mit der STOP- Anweisung kann eine Unterbrechung eines Programms an 
einer vorbestimmten Stelle angegeben werden. 

Anweisung: STRINGS (n,w) 
Beispiel: PRINT STRING (30,65) 

Durch die String- Anweisung wird eine Zeichenkette erzeugt, die n-mal 
das Zeichen mit dem ASCII-Code w enthalt. 

Anweisung: STR$(x) 
Beispiel: A=STR$(4.5) 

STR$ ist eine Konvertierungsfunktion. Aus dem Wert des Arguments x 
wird eine Zeichenkette gleichen Inhalts gebildet. 

Anweisung: TAN(x) ' I 

Beispiel: PRINT TAN(3. 1415927/4) 

Bel Vorgabe eines Winkels x im BogenmaB liefert die TAN-Funktion den 
Tangens des entsprechenden Winkels (s. a. SIN, COS, ATN). 

Anweisung: TRON 
Beispiel: TRON: RUN 

Jede Programmzeile, die der Rechner bei Ausfuhrung eines Programms 
durchlauft, wird auf dem Bildschirm protokoUiert. 

Anweisung: TROFF 
Beispiel: TROFF 

Die durch TRON eingeschaltete Protokollierung wird abgeschaltet (s. a. 
TRON). ' 

Anweisung: USR(x) 

Beispiel: X=USR(0) I 

Zu einer Maschinenunterroutine, deren Startadresse durch den Inhalt der 
beiden Adressen 16526 und 16527 vorgegeben ist, wird von BASIC aus 
verzweigt. Das Argument x wird dem HL-Registerpaar ubergeben (s. a. 

NAME). 
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Anweisung: VAL(s$) , 

Beispiel: W=VALC'3.4") ' 

VAL ist eine Konvertierungsfunktion. Eine Zeichenkette, deren Ziffern- 
folge eine Zahl reprasentiert, wird in ihr numerisches Aquivalent umge- 
wandelt. 

Anweisung: VARPTR 

Beispiel: W=4 : PRINT VARPTR(W) | 

Die VARPTR-Funktion liefert Informationen iiher Typ und Lange einer 
Variablen, sowie Hinweise auf die Adresse, wo die zu der Variablen 
gehorenden Daten im Speicher abgelegt wurden. 
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von Rodnay Zaks - Der unentbehrliche Wegweiser fiir jeden, der den Kauf oder den 
Gebrauch eines Mikrocomputers erwagt, das Standardwerk in 3. , iiberarbeiteter Aus- 
gabe. 304 Seiten, 150 Abbildungen, zahlreiche lUustrationen, Best.-Nr.: 3040 (1984) 



ERFOLG MIT MULTIPLAN 

von Th. Ritter - das Tabellenkalkulations-Programm Multiplan hilft Ihnen bei der 
Losung kommerzieller, wissenschaftlicher und allgemeiner Probleme. Lernen Sie die 
Moglichkeiten kennen, Ihre Software optimal zu nutzen! 208 Seiten, ca. 60 Abbildun- 
gen,Best.-Nr.: 3043 (1984) 

FARBSPIELE MIT DEM COMMODORE 64 

von W. Black und M. Richter — 20 herrliche Farbspiele fur Ihren C64, mit Beschrei- 
bung, Programmlisten und Bildschirm-Darstellungen. Fiir mehr Freizeit-SpaB mit 
Ihrem Commodore! 176 Seiten, 58 Abbildungen, Best.-Nr.: 3044 (1984) 

COMMODORE 64 BASIC HANDBUCH 

von D. Hergert - zeigt Ihnen alle Anwendungsmoglichkeiten Ihres C64 und 
beschreibt das vollstandige BASIC-Vokabuiar anhand von praktischen Beispielen. 
208 Seiten, 92 Abbildungen, Best.-Nr.: 3048 (1984) 

COMMODORE 64 PROGRAMMSAMMLUNG 

von S. R. Trost — mehr als 70 getestete Anwenderpro gramme, die direkt eingegeben 
werden konnen. Erlauterungen gewahrleisten eine optimale Nutzung. 192 Seiten, 160 
Abbildungen, Best.-Nr.: 3051 (1983) 

CP/M-HANDBUCH 

von Rodnay Zaks - das Standardwerk iiber CP/M, das meistgebrauchte Betriebssy- 
stem fiir Mikrocomputer. Fiir Anfanger eine verstandliche Einfvihrung, fiir Fortge- 
schrittene ein umfassendes Nachschlagewerk iiber die CP/M-Versionen 2.2, 3.0 und 
CCP/M-86 sowie MP/M, 2., iiberarbeitete Ausgabe. 320 Seiten, 56 Abbildungen, 
Best.-Nr.: 3053 (1984) 

MEIN ERSTES COMMODORE 64-PROGRAMM 

von R. Zaks — sollte Ihr erstes Buch zum Commodore 64 sein. Viel SpaB am Lernen 
durch farbige Iltustrationen und leichtverstandliche Diagramme, Programmieren mit 
sofortigen Resultaten. 208 Seiten, illustriert, Best.-Nr. -3062 (1984) 

SYBEX MIKROCOMPUTER LEXIKON 

— die schnelle Informationsborse! Uber 1500 Definitionen, Kurzformeln, Begriffs- 
schema der Mikroprozessor-Technik, englisch/deutsches und franzdsisch/deutsches 
Worterbuch, Bezugsquellen. 192 Seiten, Format 12,5 x 18 cm, Best.-Nr.: 3035 (1984) 
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Spiele in Sound und Farbe - 

der Freizeit-Spa3 mit einem Computer, 

der vieles kannl 



Mein 
Colour Genie 



Es gibt fur den Colour Genie bereits eine Vielzahl 
von Spielprogrammen. Wenn Sie aber eigene 
Programme fur diesen Computer entwickeln 
mochten, bekommen Sie durch dieses Buch eine 
Fijlie von Anregungen. 

Es zeigt, 

• mit welchen Befehlen der Zeichensatz gean- 
dert werden kann, 

• wie Sie eigene Funktionen entwickeln und 
benutzen konnen, 

• was alles mit dem Soundgenerator gemacht 
werden kann, 

• was bei der Verwendung von Diskettenlauf- 
werken beaclntet werden muB, 

• wie Sie zum Beispie! „Reversi" auf dem 
Colour Genie programmieren konnen. 

Der Autor vermitteit Ihnen viele praktische Bei- 
spiele, die leicht nachzuvollziehen sind. Sie ler- 
nen, mit einfachen Mitteln eindrucksvolle Pro- 
gramme zu erstellen und so das Beste aus ihrem 
Colour Genie herauszuholen. 
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• mit weiciien Befehlen der Zeichensatz gean- 
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• wie Sie eigene Funktionen entwickein und 
benutzen konnen, 

• was alies mit dem Soundgenerator gemacht 

werden kann, 

• was bei der Verwendung von Diskettenlauf- 
werken beachtet werden muB, 

• wie Sie zum Beispiel „Reversi" auf dem 
Colour Genie programmieren konnen. 

Der Autor vermittelt Ihnen viele prakttsche Bei- 
spiele, die leicht naciizuvoiiziehen sind. Sie ler- 
nen, mit einfachen Mittein eindrucksvolle Pro- 
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Colour Genie herauszuholen. 
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